Merci @Theze.
J'ai eu 1 solution par un copain :
Sub merging()
' TRIER LES SAP D ABORD
Range("A2").Select
Do Until ActiveCell.Value = ""
sap = ActiveCell.Value
adresse = ActiveCell.Address
adresse2 = ActiveCell.Offset(0, 2).Address
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = sap Then
Do Until ActiveCell.Value <> sap
ean = ActiveCell.Offset(0, 1).Value
adresseean = ActiveCell.Address
Range(adresse2).Select
ActiveCell.Value = ean
adresse2 = ActiveCell.Offset(0, 1).Address
Range(adresseean).Select
ActiveCell.EntireRow.Delete
Loop
End If
Loop
End Sub
@James007
Sauf erreur de ma part, un tcd ne m'aurait pas permis d'avoir les valeurs de la deuxième colonne ramenées sur la même ligne que le code SAP unique.