re
well, afin de supprimer toutes les lignes vides de la fin de ton enregistrement jusqu'à ta dernière ligne (dernière ligne exclue):
Sub test()
Dim PremièreLignVide As String
Dim DernièreLignVide As String
PremièreLignVide = Columns(1).Find("", Range("A1"), , , xlByRows).Row
'renvoi le numéro de la 1ere ligne vide dans ton enregistrement
DernièreLignVide = Columns(1).Find("XXX", Range("A" & PremièreLignVide), , , xlByRows).Row
'Renvoi le n° de la lign ou se trouve la cellule contenant XXX , à remplacer par le contenu de ta cellule (dernière ligne de la colonne A1)
DernièreLignVide = DernièreLignVide - 1
Range(Cells(PremièreLignVide, 1), Cells(DernièreLignVide, 5)).Select
Selection.Delete Shift:=xlUp
End Sub
Dans le "Range(Cells(PremièreLignVide, 1), Cells(DernièreLignVide, 5)).Select" le 1 correspond a la colonne A et le 5 à la colonne n°5 soit la colonne E
En espérant que cela te conviennes !!
RTT oblige je te dis à lundi
salut à toi