Sub SelectionNonVides()
'sélectionner 1ere cellule non vide
For Each c In Range("plage")
If c <> "" Then
c.Select
Exit For
End If
Next
' extension sélection
For Each c In Range("plage")
If c <> "" Then
Range(Selection.Address, c.Address).Select
End If
Next
End Sub
Sub supprimer()
ActiveSheet.Rows(ActiveCell.Row).EntireRow.Delete
End Sub