Bonjour
Je cherche à appliquer la procédure ".SpecialCells(xlCellTypeBlanks).EntireRow.Delete" à un tableau aux lignes variables.
Le tableau va de la colonne A à la colonne AQ.
J'ai tappé ceci :
Sub Sup()
Dim derniereligne As Integer
derniereligne = Range("A" & Rows.Count).End(xlUp).Row
Range("A1:AQ" & derniereligne).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Pourriez-vous m'aider svp?
Merci beaucoup