Supprimer les doublons en ligne avec une macro

Bonjour tout le monde,

Sauriez vous m'aider à supprimer les doublons sur une même ligne de droite à gauche, et looper cette fonction sur plusieurs lignes?? ..

Je m'explique, j'ai un grand tableau qui se présente comme cela

et je veux le transformer en un tableau comme ça

et donc supprimer les doublons ligne par ligne sans bouger l'ordre des cellules

... keep in mind que le tableau que je manipule est de plus grandes dimensions que cela (52 colonnes et 2000 lignes)

Merci d'avance à vous les rois de la programmation VBA

Zineb

Bonjour

Cordialement

Bonjour à tous,

Vois ceci :

Option Explicit
Sub test()
    Dim a, i As Long, j As Long, dico As Object
    Set dico = CreateObject("Scripting.Dictionary")
    dico.CompareMode = 1
    With Sheets("Feuil1").Range("A1").CurrentRegion
        a = .Value
        For i = 1 To UBound(a, 1)
            dico.RemoveAll
            For j = 1 To UBound(a, 2)
                If Not dico.exists(a(i, j)) Then
                    dico.Item(a(i, j)) = Empty
                Else
                    a(i, j) = Empty
                End If
            Next
        Next
        .Value = a
    End With
End Sub

klin89