Bonjour à tous,
je souhaite faire une copie automatique d'une feuille à l'autre mais en ne sélectionnant uniquement que les lignes remplies.
Concrètement je veux sélectionner la colonne A à N à partir de la ligne 6 (sans pour autant copier 10 000 lignes)
Voici mon code :
 
Sub Test()
Sheets("ListeMDC" ).Select
Selection.AutoFilter Field:=14, Criteria1:="<>"
Dim plage As Range
Dim cel As Range
Set plage = Range("A6:A" & Range("B65536" ).End(xlUp).Row)
plage.Select
Selection.Copy
Sheets("CLOS" ).Select
Range("A6" ).Select
ActiveSheet.Paste
 
'Annuler le surlignage des cellules :
Selection.Interior.ColorIndex = xlNone
Range("A6" ).Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("ListeMDC" ).Select
Selection.AutoFilter Field:=11
Selection.AutoFilter Field:=14
 
Je bloque à set plage = Range
 
Est-ce que quelqu'un peut m'aider svp ?
 
Merci d'avance,
Thibault

bonjour,
 
Set plage = Range("A6:N" & Range("B65536" ).End(xlUp).Row)
 
A+

Salut merci pour ta réponse mais ça ne fonctionne pas. J'ai fait une erreur dans mon code avec Range("B65536" ). Voici le code que j'avais réécri en attendant une réponse :
 
 
Dim plage As Range
 
Set plage = Range("A6:N" & Range("A65536" ).End(xlUp).Row)
 
Sheets("ListeMDC" ).Select
Selection.AutoFilter Field:=14, Criteria1:="<>"
    plage.Select
    Selection.Copy
    Sheets("MDCcloses" ).Select
    Range("A6" ).Select
    ActiveSheet.Paste
    Selection.Interior.ColorIndex = xlNone
 
 
Il me met une erreur à plage.select

Autant pour moi. ça fonctionne. J'ai rajouté ceci  
Dim cel As Range
 
Peut être que ça venait de là.  
 
Voici mon code en entier pour ceux que ça intéresse :
 
Sub Mise_A_Jour()
 
Dim plage As Range
Dim cel As Range
 
Sheets("ListeMDC" ).Select       'permet la sélection de la feuille ListeMDC
 
    Selection.AutoFilter Field:=14, Criteria1:="<>"
     
    'permet de filtrer les données, <> signie "non vides"
    'pour que la ligne ci dessus fonctionne,
    'il faut au préalable activer les filtres de la colonne A à N sur la ListeMDC
         
    Range("A6:N" & Range("A65536" ).End(xlUp).Row).Select
    Selection.Copy
    Sheets("MDCcloses" ).Select
    Range("A6" ).Select
    ActiveSheet.Paste
       
 Sheets("ListeMDC" ).Select
    Selection.AutoFilter Field:=14 'permet d'enlever le filtre sur la liste MDC
 
Merci galopin