Suppression de doublons dans deux colonnes

Bonjour le Forum,

Je viens à vous pour pouvoir résoudre un problème de suppression de doublons dans deux colonnes.

J'utilise une macro qui me permet de nettoyer les doublons dans la colonne "F", mais je n'arrive pas à étendre ce bout de code à la deuxième colonne "E"; Tests sur tests et erreur sur erreurs.

Merci d'avance pour votre aide.

Voici le code:

Sub Regrouper()

Dim Nom As Range

Dim i As Byte

Dim Val As Range

Application.ScreenUpdating = False

For Each Nom In Range("F2:F" & Range("A65536").End(xlUp).Row)

For i = 1 To Range("A65536").End(xlUp).Row - 1

Set Val = Nom.Offset(i, 0)

If Val <> "" And Val = Nom Then

Nom.Offset(0, 1) = Nom.Offset(0, 1) & " , " & Val.Offset(0, 1)

Rows(Val.Row).Delete

i = i - 1

End If

Next i

Next Nom

End Sub

Bonjour,

tu te complique la vie, l'option est de base dans Excel,

• Onglet Donnés
• Outils de données
• Supprimer les doublons

Bonjour Watewmark,

Oui effectivement cela existe, mais je voudrais comprendre pourquoi je n'arrive pas à étendre ma macro.

Merci quand même pour ton message.