Sub mef()
Dim i As Integer, derligne
' Dim j As Integer
Dim n As Long
' derligne = Range("B3").End(xlDown).Row
j = Array(0, 1, 3, 4, 9) ' ici une petite modif
derligne = Range("B3").End(xlDown).Row
For n = 1 To UBound(j)
For i = derligne To 3 Step -1
If Cells(i, 2).Value = Cells(i - 1, 2).Value Then
Cells(i, j(n)).ClearContents ' ici une petite modif
End If
Next i
Next n
End Sub