Sub Sup()
Dim Ligne_A_Supprimer(20) As Long
Dim L As Long
'Reperer les lignes à supprimer
For Each Cellule In Selection
If Cellule.Column = 1 Then
Ligne_A_Supprimer(L) = Cellule.Row
L = L + 1
End If
Next
'Supprimer les lignes
For L = L - 1 To 0 Step -1
Rows(Ligne_A_Supprimer(L)).Delete
Next
'enlever la selection
Cells(Ligne_A_Supprimer(0), 1).Select
End Sub