Sub SupLigVide()
Dim DerLig As Long, Lig As Long
With Sheets("Synthèse")
DerLig = .Range("A" & Rows.Count).End(xlUp).Row
For Lig = [COLOR=green][B]DerLig To 4 Step - 1[/B][/COLOR]
If .Range("A" & Lig).Value = "" Then
Rows(Lig).EntireRow.Delete
End If
Next Lig
End With
End Sub
Sub EffaceLignesVides()
With Sheets("Synthèse")
Dim i as long
For i = .Range("A65536").End(xlUp).Row To 4 Step -1
If Cells(i, 1) = "" Then .Cells(i, 1).EntireRow.Delete
Next
End With
End Sub