A supprimer

[Brudy]

A supprimer

 

[pierrejean]

Bonjour Brudy

A tester:

Sub test()
ReDim tabres(0, 0)
For n = 6 To Range("F" & Rows.Count).End(xlUp).Row
    x = Split(Range("F" & n))
    ReDim tabres(0, UBound(x))
    Range("H" & n).Resize(, UBound(x) + 1) = x
Next
End Sub

 

[Brudy]

Bonjour PierreJean

Merci pour ta réponse
il s'avère qu'excel permet de transposer chaque case en sélectionnant la colonne de départ, incluable dans une macro enregistrée donc. Ce qui me permet d'éviter de me casser la tête sur ce point