Macro pour déplacer doublons

Bonjour,

j'ai essayé de trier les doublons avec le complément mDF XLDoublons

Mais cela ne correspond pas à ma demande.

Je souhaiterai que la colonne A ne contienne qu'un seul nom, si il y plusieurs fois le même nom il faut déplacer la colonne B vaes la colonne C du même nom ou de la colonne suivante si la précédente est prise.

Voici le fichier

Merci

Sub toto()
    application.screenupdating = false
    Dim i As Long, compteur As Integer
    With Sheets("Feuil1")
        For i = 1 To .Range("A" & .Rows.Count).End(xlUp).Row
            If .Cells(i, 1) = .Cells(i + 1, 1) Then
                compteur = compteur + 1
                .Cells(i + 1, 2).Cut (.Cells(i + 1, 2 + compteur))
            Else
                compteur = 0
            End If
        Next i
    End With
    application.screenupdating = true
End Sub

Bonjour EngueEngue,

bravo et merci pour ton code.

Mais au lieu que cela déplace sur la même ligne, est il possible que se soit déplacé sur la première ligne qui comporte le même nom.

Merci

Sub toto2()
    Application.ScreenUpdating = False
    Dim i As Long, compteur As Integer
    With Sheets("Feuil1")
        i = 1
        While i < .Range("A" & .Rows.Count).End(xlUp).Row
            If .Cells(i, 1) = .Cells(i + 1, 1) Then
                compteur = compteur + 1
                .Cells(i + 1, 2).Cut (.Cells(i, 2 + compteur))
                .Rows(i + 1).Delete
            Else
                compteur = 0
                i = i + 1
            End If
        Wend
    End With
    Application.ScreenUpdating = True
End Sub

Bonjour EngueEngue,

que du bonheur

Merci très sincèrement