Sub triCouleurs()
Range("A2").Select
For x = 1 To Len(ActiveCell.Value)
If ActiveCell.Characters(Start:=x, Length:=1).Font.ColorIndex = xlAutomatic Then
Range("B2").Value = Range("B2").Value + _
ActiveCell.Characters(Start:=x, Length:=1).Caption
End If
If ActiveCell.Characters(Start:=x, Length:=1).Font.ColorIndex = 44 Then
Range("D2").Value = Range("D2").Value + _
ActiveCell.Characters(Start:=x, Length:=1).Caption
End If
If ActiveCell.Characters(Start:=x, Length:=1).Font.ColorIndex = 5 Then
Range("C2").Value = Range("C2").Value + _
ActiveCell.Characters(Start:=x, Length:=1).Caption
End If
Next x
Range("B2").Value = Range("B2").Value & " "
Range("C2").Value = Range("C2").Value & " "
Range("D2").Value = Range("D2").Value & " "
End Sub