Bonjour le fil
Ci joint une macro qui devrait répondre au problème.
Sub essai()
crlf = Chr$(10)
lon = Len(Range('A1').Value)
For i = 1 To lon
a1 = Mid(Range('A1').Value, i, 1)
If a1 = ';' Then a1 = crlf
a = a & a1
Next i
Range('A1').Value = a
End Sub
Bon W E