Remplacement de nombres

Bonsoir,

Comment pourrai-je supprimer tous les doublons (ou plus) sur une ligne et n'en garder qu'un (remplacer les autres par 0)?

Il y a environ 500 lignes de A5:O500, résultat en P

Je vous remercie.

Bonjour,

Essaie cette macro

Sub Test()
Dim Ligne As Integer, Col As Integer
    Application.ScreenUpdating = False
    For Ligne = 5 To Range("A" & Rows.Count).End(xlUp).Row
         For Col = 1 To 15
            If Application.CountIf(Range(Cells(Ligne, 1), Cells(Ligne, Col)), Cells(Ligne, Col)) > 1 And Cells(Ligne, Col) <> 0 Then
                Cells(Ligne, Col).Offset(, 16) = 0
                Cells(Ligne, Col).Offset(, 16).Interior.ColorIndex = 6
                Cells(Ligne, Col).Interior.ColorIndex = 6
            Else
                Cells(Ligne, Col).Offset(, 16) = Cells(Ligne, Col).Value
            End If
         Next Col
    Next Ligne
End Sub

A+

Bonsoir et merci Frangy, super !