Re : If, then, else
Problème résolu encore une fois,
Sub sup()
For i = Range("A65536").End(xlup).Row to 2
If Cells(i, 3).Value = "" Then
Range(Cells(i, 1), Cells(i, 5)).Select
Selection.Delete shift:=xlUp
End If
Next i
End Sub
et voila comme ca ca...