Voila ce que j'ai fais après m'être inspiré de vos idées, et ca marchel impec !
For k = 1 To noDernLigne
ArrWD = Split(Cells(k, "A"), ";") 'split la cellule k:A a chaque ";"
For i = 0 To 4
Cells(k, "A").Value = ArrWD(0)
Cells(k, "B").Value = ArrWD(1)
Cells(k, "C").Value = ArrWD(2)
Cells(k, "D").Value = ArrWD(3)
Cells(k, "E").Value = ArrWD(4)
Next
Next
Merci a vous !