Doublons dans des lignes

Bonjour le forum

quelqu'un connait-il une méthode pour supprimer les doublons dans des lignes ou un site qui explique cela

Ex: 1-2-3-3-4-5-6-7-7 a supprimer 3 et 7

...: 10-24-25-31-36-36-38-40- le 36

et ceci sur plusieurs centaines de lignes

merci

Bonjour,

Bonjour MFerrand, le forum

voici a quoi ressemble mon fichier, le nombre de colonnes peut varier comme celui des lignes

merci

Bonsoir,

Sub EpurerNnDoublons()
    Dim n%, i%, j%, k%, ligne As Range
    Application.ScreenUpdating = False
    With ActiveSheet
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 2 To n
            Set ligne = .Range(.Cells(i, 1), .Cells(i, 1).End(xlToRight))
            For j = ligne.Cells.Count To 2 Step -1
                For k = j - 1 To 1 Step -1
                    If ligne.Cells(1, j) = ligne.Cells(1, k) Then
                        ligne.Cells(1, j).Delete xlShiftToLeft
                        Exit For
                    End If
                Next k
            Next j
        Next i
    End With
End Sub

Cordialement.

Bonjour MFerrand, le forum

Merci pour la macro, c'est parfait

merci