With Worksheets("Test").Range("b3:b" & Worksheets("Test").Range("b1000000").End(xlUp).Row)
Set d = .Find(c)
If Not d Is Nothing Then
Départ = d.Address
Do
d(1, 12) = "X"
Set d = .FindNext(d)
Loop While Not d Is Nothing And d.Address <> Départ
End If
End With
Set c = c(0, 1)
Loop
With Worksheets("TEST")
If Not AutoFilterMode Then AutoFilterMode = True
.[M1].AutoFilter 13, "<>X"
Set d = .Range("_FilterDataBase")
d.Offset(1, 0).Resize(d.Rows.Count - 1).SpecialCells(12).Delete Shift:=xlUp 'plante ici
.ShowAllData
.Columns("M:M").Clear
End With