Bonjour a vous trois
VBA-new: Je tiens a utiliser une macro commander par un bouton, mais je garde ton idee.
J'ai fait un mixe des 2 macro et cela fonctionne tres bien. Merci
Private Sub CommandButton14_Click() '<Clean> enleve les lignes dont la cellule en "I" est vide
Dim lrow As Long, i As Long
Application.ScreenUpdating = False
lrow = Range("I" & Rows.Count).End(xlUp).Row
For i = lrow To 2 Step -1
' For i = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1 autre methode
If Range("I" & i) = "" Then Rows(i).Delete
'If IsEmpty(Cells(i, "I")) Then Rows(i).Delete autre methode
Next
End Sub