bonjour,
essaie ceci
With curr_wb.Sheets("VL")
For i = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If .Cells(i, 1) = "" Then .Rows(i).Delete
Next i
End With
faire le parcours de la liste en ordre inverse, pour éviter de sauter la ligne qui suit la ligne supprimée
tester soit une longueur nulle len(.cells(i,1))=0 ou une cellule vide .cells(i,1)="" pour identifier une cellule vide