Bonjour,

Je souhaite pouvoir supprimer les cellules "vides" d'une feuille qui apparaissent dans mes filtres.
Mon code actuel permet déjà de supprimer le contenu à l'ouverture du classeur mais quand j'importe des données, je me retrouve avec x lignes de cellules "vides".

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Private Sub Workbook_Open()
Worksheets("Feuil1").Range("A2:Z6000").ClearContents
End Sub
Dans ma macro d'export sur mon autre classeur j'ai

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub FichierTest()
 
With ThisWorkbook.Sheets("Feuil2")
    .Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:="OK"
    .Range("A:B,E:E,I:J,Z:AA").SpecialCells(xlCellTypeVisible).Copy
    Workbooks("Test.xlsm").Sheets("Feuil1").Range("A1").PasteSpecial Paste:=xlPasteValues 
    Application.CutCopyMode = False
End With
 
Exit Sub
 
End Sub
Je me dis que SpecialCells(xlCellTypeVisible) doit avoir un rôle à jour là dedans.
Une idée?

Merci beaucoup.