changer le couleur de police après chaque espace

Sub colortext()
Dim couleur As Integer, cell As Range, i As Integer
For Each cell In Selection
    If Len(cell) > 0 Then
        ' couleur = 3 + Int(Rnd() * 12) ' ---------------couleur initiale aleatoire (indexcolor de 3 à 13 (Rouge,vert,Bleu,jaune,magenta,cyan,jaune, etc...)
        couleur = 3 ' ---------------------couleur initiale toujours rouge
        With cell
           'couleur = 3 + Int(Rnd() * 50)  '----------------couleur=couleur aleatoire pour chaque mot
            For i = 1 To Len(cell)
                If Mid(cell, i, 1) <> " " Then
                    .Characters(i, 1).Font.ColorIndex = couleur
                Else
                    couleur = couleur + 1
                   ' couleur = 3 + Int(Rnd() * 50)  '----------------couleur=couleur aleatoire pour chaque mot
                End If
            Next
        End With
    End If
Next
End Sub