Bonjour le forum,
Pour bien comprendre, voyez le résultat obtenu en cliquant en Feuil4.
Sub Split_Transpose_Desserte1()
'En colonne A, les donnees à splitter
Dim C As Range, Item As Variant, col As Long, lig As Long
Application.ScreenUpdating = False
col = 2
For Each C In Range([A1]...