Sub Filtre()
Dim DerL&, i&, j&, Mondico As Object, Plage, Résultat&
DerL = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
'Plage = Worksheets("Feuil1").Range("D2:D" & DerL) 'ancienne plage colonne D
Plage = Worksheets("Feuil1").Range("C2:C" & DerL) 'nouvelle plage colonne C
Set Mondico = CreateObject("Scripting.Dictionary")
j = 1
For i = UBound(Plage) To LBound(Plage) Step -1
If Not Mondico.Exists(Plage(i, 1)) Then
Mondico.Add Plage(i, 1), Plage(i, 1)
Else
Dim tablo()
ReDim Preserve tablo(1 To j)
tablo(j) = i + 1
j = j + 1
End If
Next i
For i = LBound(tablo) To UBound(tablo)
Worksheets("Feuil1").Rows(tablo(i)).Hidden = True
Next i
End Sub