Bonjour Vincent
Pour supprimer une ligne sous condition, une macro qui se régle sur la plage utilisée :
Sub SupLignesVides()
Dim Mat As Variant
Dim j As Long
k = 1
Mat = ActiveSheet.UsedRange
For j = 1 To UBound(Mat)
Cells(j, 1).Select
If Application.CountA(Cells(j, 1).EntireRow) = 0 Then
Cells(j, 1).EntireRow.Delete
j = j - 1
End If
Next j
End Sub
Cordialement
CBernardT