Mise en forme différente de 2 message dans une cellule

Bonjour à tous,

Dans mon fichier, la cellule "F1" contient 2 messages toujours les mêmes. J'aurais besoin de différencier la taille de la police et la couleur de ces 2 messages en vba. Je ne peux malheureusement pas les répartir des 2 cellules différentes...

Merci beaucoup pour votre aide,

Amicalement

Bonjour,

Teste et adapte à ta convenance (cellule cible, F1) :

Sub Test()

    Dim I As Integer

    With Range("F1")

        I = InStr(.Value, Chr(10))

        With .Characters(1, I).Font

            .Name = "Calibri"
            .Size = 11
            .Bold = True
            .ColorIndex = 3

        End With

        With .Characters(I, Len(.Value)).Font

            .Name = "Arial"
            .Size = 15
            .Underline = True
            .ColorIndex = 5

        End With

    End With

End Sub

Bonsoir Theze,

Merci beaucoup de ta réponse ! Et sais-tu comment faire pour le cas où j'ai dans ma cellule F1 : message 1 (message 2)?

Sachant que je dois obtenir : message 1 avec les mêmes contraintes de changement de couleur et de taille de police....

(message 2)

Merci mille fois

Bonne soirée

Edit : C'est tout bon ! Je me suis débrouillé ! MERCI encore Theze !!