Aide Concatener

Bonjour

Tu regardes si cela te convient

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

Pascal

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

Pascal

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