Aide Concatener

[Roger]

Bonjour,je joint le fichier dans lequel je vous expose mon problème.
Merci pour votre aide.Bonne journée a tous.

 

[Pascal76]

Bonjour

Tu regardes si cela te convient

Au fait je pourrais goûter en gage de récompense ????????

Pascal

 

[Pascal76]

OUPS si j'oublie le fichier je pourrais rien manger du tout

Pascal

 

[Vik Leroy]

Essaie ça
A adapter suivant tes besoins

Sub test()
LIGNE = 24
I = 2
OLDCODFICH = Cells(I, 1).Value
Do
CODFICH = Cells(I, 1).Value
If CODFICH <> OLDCODFICH Then
LIGNE = LIGNE + 1
End If
Cells(LIGNE, 2).Value = Cells(LIGNE, 2).Value & Cells(I, 2).Value
I = I + 1
OLDCODFICH = CODFICH
Loop Until I = 23
End Sub

Vik