ah oui j'ai fait de mémoire, j'avais utilisé i et non ligne, comme ceci alors:
Application.ScreenUpdating = False
For i = 4 To Cells(Rows.Count, 2).End(xlUp).Row
If Cells(i, 2) = 1 Then
Cells(i, 2).ClearContents
Cells(i, 3).ClearContents
Cells(i, 4).ClearContents
End If
Next i