Transposer à partir d'un caractère

Bonjour,

En B2, j'ai dans une cellule avec plusieurs valeurs espacées d'un " ; ", je voudrais maintenant transposer cela à la verticale et ce à chaque fois que le " ; " revient.

J'ai joint un exemple en fichier.

Merci d'avance

Bonjour Obeida, bonjour le forum,

Une proposition VBA :

Sub Macro1()
Dim TV As Variant
TV = Split(Range("B1").Value, ";")
Range("B2").Resize(UBound(TV, 1), 1) = Application.Transpose(TV)
End Sub

Bonjour @ThauThème,

Merci pour ton aide, c'est exactement ce que je voulais.

Bon week-end