Sub Doublon()
Dim i As Variant
Dim j As Variant
Dim col As Long
Dim lig As Long
Dim d As Object
lig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
For i = lig To 1 Step -1
col = Cells(i, 3000).End(xlToLeft).Column
Set d = CreateObject("scripting.dictionary")
For Each j In Range(Cells(i, 1), Cells(i, col))
If j.Value <> "" Then d(j.Value) = ""
Next j
Rows(i).ClearContents
Cells(i, 1).Resize(, d.Count) = d.keys
Next i
End Sub