Sub decoupage()
For m = 2 To Range("A65536").End(xlUp).Row
ensuite = Len(Range("A" & m))
For n = 1 To Range("A" & m).Characters.Count
If n < ensuite And Range("A" & m).Characters(Start:=n, Length:=1).Font.Italic = True Then
fin = Mid(Range("A" & m), n, ensuite - n)
deb = Replace(Range("A" & m), fin, "")
ensuite = n
Range("B" & m) = Replace(deb, ",", "")
End If
If n > ensuite And Range("A" & m).Characters(Start:=n, Length:=1).Font.Italic = False Then
suite = Mid(Range("A" & m), n, Len(Range("A" & m)) - n)
milieu = Replace(fin, suite, "")
Range("C" & m) = milieu
Range("C" & m).Font.Italic = True
Range("D" & m) = Replace(suite, ",", "")
Exit For
End If
Next n
Next m
End Sub