Salut CrazyGil, le Forum
Tiens çà fait un bail que l'on ne s'est pas croisé.
Par contre tu n'as pas vraiment été explicit sur ce coup là. Si tu filtres les cellules non vides par AutoFilter (???), il faut savoir récupérer les items filtrés, sinon tu récuperas toute la plage...
Voici une première approche :
Sub AutoFilterVide()
Dim Plage As Range
Dim PlageFiltree As Range
Dim L As Integer
With Sheets("Feuil1")
.Range("a1").AutoFilter 1, "<>"
L = .Range("A65536").End(xlUp).Row
If L = 1 Then GoTo Zap
Set Plage = .Range("A2:A" & L)
Set PlageFiltree = Plage.SpecialCells(xlCellTypeVisible)
PlageFiltree.Copy Sheets("Feuil2").Range("A1")
End With
Zap:
End Sub
Bonne nuit
@+Thierry