Range("A1:IV65536").SpecialCells(xlCellTypeFormulas).EntireRow.ClearContents
Sub EffaceLignesVides()
Sheets("Synthèse").Range("A1:A65536").SpecialCells(xlCellTypeFormulas).EntireRow.ClearContents
End sub
Sub EffaceLignesVides()
With Sheets("Synthèse")
For i = 4 To .Range("A65536").End(xlUp).Row
If Cells(i, 1) = "" Then .Cells(i, 1).EntireRow.ClearContents
Next
End With
End Sub