Changement police après chr (10)

Bonjour

Trouvé sur le net le code ci-dessous pour changer la police après le retour à la ligne au sein d'une cellule.

Sauf que bien sur elle ne s'applique qu'à la cellule B2.

Je n'arrive pas à l'appliquer à une plage de cellule (par exemple de A1 à C50)

Dim e As Integer
    With ActiveSheet
        e = InStr(.Cells(2, 2), Chr(10))
        With .Cells(2, 2).Characters(1, e).Font
            .Name = "Algerian"
            .ColorIndex = 3
            .FontStyle = "italic"
            .Size = 14
        End With
        With .Cells(2, 2).Characters(e).Font
            .Name = "Algerian"
            .FontStyle = "Bold"
            .ColorIndex = 5
            .Size = 14
        End With
    End With

Merci d'avance

Bonjour,

Remplace 2, 2 par i , j et encapsule le tout par une double boucle i de 1 à 50 et j de 1 à 3

Dim e As Integer

On Error Resume Next

For Each c In Range("B2:H154")

        e = InStr(c, Chr(10))
        With c.Characters(1, e).Font
            .Name = "Algerian"
            .ColorIndex = 3
            .FontStyle = "italic"
            .Size = 14
        End With
        With c.Characters(e).Font
            .Name = "Algerian"
            .FontStyle = "Bold"
            .ColorIndex = 5
            .Size = 14
        End With

Next

Tu remplaces la plage par celle de ton choix

Bonjour

Merci à vous deux, c'est parfait.

Bonne journée