Modifier couleur 1er ligne ds cellule ayant plusieurs lignes

Bonjour,

Dans une cellule contenant plusieurs lignes de texte séparées par un alt+entré (saut de ligne), je cherche à sélectionner la première ligne et mettre le texte correspondant en rouge. Je vous joint un fichier exemple pour plus de clareté.

J'ai écrit ceci:

Sub mise_en_couleur()

Application.ScreenUpdating = False

DerLig = Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To DerLig

Cells(i, 1).Font.ColorIndex = 3

Var = Split(Cells(i, 1), Chr(10))

Var(1).Font.ColorIndex = 4

Next i

Application.ScreenUpdating = True

End Sub

Les indices colorIndex ont été mis au pif, je ne me souviens plus des bon chiffres pour noir et rouge. Mais c'est pas le sujet, je testerai s'il faut.

Evidemment, le gros problème est la ligne Var(1).Font.ColorIndex = 4 qui n'a aucun sens. Je l'ai mis pour vous donner une idée de ce que je veux faire, je ne cherche pas réellement à attribuer une couleur à une variable ^^...

Bref, je vois pas comment faire, même si ça ne dois pas être très compliqué à faire...

Bonjour

A tester

C'est parfait, merci