Sub Ranger_Colonne() 'Traitement fichier au format CSV (point virgule)
Dim Text As String, X As String, ADéconcaténer As String, Caractere As String
Dim M As Integer, Y As Integer, j As Integer, Nb As Integer
M = Sheets("Feuil1").Range("b65536").End(xlUp).Row
Sheets("Feuil1").Activate
Caractere = ";" 'caractère de séparation
'----------- Compteur point virgule ---------------
For Y = 4 To M
ADéconcaténer = Range("b" & Y).Value
Nb = Len(ADéconcaténer)
j = 0
Text = ""
For i = 1 To Nb 'traitement caractère par caractère
X = Mid(ADéconcaténer, i, 1)
Text = Text & X
If X = Caractere Then
j = j + 1
Text = Left(Text, Len(Text) - 1)
Range("A" & Y).Select
Range("A" & Y).Offset(0, j).Value = Text 'si j-1 colonne A départ
Text = ""
End If
Next
Next
End Sub