Aplatir ligne double

Bonjour,

je n'ai pas trouvé de poste sur le sujet, je vous pris de m'excuser si j'ai mal cherché.

j'ai un tableau qui réuni les références d'un même article selon plusieurs société,

aujourd'hui, je me retrouve avec des doublons,

je souhaiterai aplatir les lignes dont les références de la société A sont en double sans perdre de données.

exemple ci-dessous :

(tableau avec les lignes double à gauche,tableau après aplatissement à droite.

je précise que j'ai environ 10.000 lignes pour une 50taine de colonne.

Merci par avance de l’intérêt que vous porterez à ma demande.

Bonjour,

merci de mettre ton classeur exemple et non les photos.

Bonjour,

une proposition

Sub aargh()
    dl& = Cells(Rows.Count, 2).End(xlUp).Row
    For i& = dl To 5 Step -1
        If Cells(i, 2) = Cells(i - 1, 2) Then
            If Cells(i, 3) <> "" And Cells(i - 1, 3) = "" Then
                Cells(i - 1, 3) = Cells(i, 3)
                Cells(i, 3) = ""
            End If
            If Cells(i, 4) <> "" And Cells(i - 1, 4) = "" Then
                Cells(i - 1, 4) = Cells(i, 4)
                Cells(i, 4) = ""
            End If
            If Cells(i, 3) = "" And Cells(i, 4) = "" Then Rows(i).Delete shift:=xlUp
        End If
    Next i
End Sub

Merci, de rien