Sub Demo2()
Dim C%, R, V
Application.ScreenUpdating = False
For Each R In [{13,23,53,73}]
C = 0
ReDim VA(1 To 8)
With Feuil1.Cells(R, 4).Resize(, 8)
For Each V In .Value
If IsError(Application.Match(V, VA, 0)) Then C = C + 1: VA(C) = V
Next
.Value = VA
End With
Next
Application.ScreenUpdating = True
End Sub