Bonne nuit le Treborp, @Christophe@, Chris, le forum,
Tu peux trouver les lignes vides en utilisant se code :
Sub Ligneblanche()
Range('A1').Select
Do Until ActiveCell = ''
ActiveCell.Offset(1, 0).Select
Loop
End Sub
À chaque fois qu'une ligne vide sera trouvée la macro arrêtera.
Avec le code suivant tu effaceras la ligne au complet :
Sub Effacerligne()
Range('A1').Select
If ActiveCell = ''
ActiveCell.Range(Cells(1, 1), Cells(1, 50)).Delete Shift:=xlUp
End If
End Sub
Ajoute deux icones dans la barre d'Excel pour les utiliser au besoin.
a+