Sub Supprimer()
Dim Ligne As Long
Dim C As Integer
Dim T
T = Array(1, 2, 5)
For Ligne = Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1
If Cells(Ligne, 2) = Cells(Ligne - 1, 2) Then
For C = LBound(T) To UBound(T)
Cells(Ligne, T(C)).ClearContents
Next C
End If
Next Ligne
End Sub