Sub Coupe()
Dim LigneMax As Long
Dim Ligne As Long
LigneMax = Range("A" & Rows.Count).End(xlUp).Row
Ligne = 1
Do
Ligne = Ligne + 1
Range("B" & Ligne) = Trim(Split(Range("A" & Ligne), " ")(0))
Range("C" & Ligne) = Trim(Replace(Split(Range("A" & Ligne), ",")(0), Range("B" & Ligne), ""))
Range("D" & Ligne) = Replace(Trim(Split(Range("A" & Ligne), ",")(1)), """", "")
Loop Until Ligne = LigneMax
End Sub