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