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