Taille de police ciblée macro

Bonjour a tous,

Quand je lance ma macro, est il possible d'avoir uniquement les 2 avant derniers caracteres (qui correspondent au niveau) en taille 48? Ceci pour toutes mes adresses bien sur.

Exemple du resultat voulu que j'ai modifié manuellement

Merci encore et toujours pour votre aide!!!

Bonjour,

Essaie :

Sub Essai()
  Dim I As Long, J As Long, Pos As Variant
  With Sheets("Etiquette normal horizontale")
    For I = 1 To Cells(.Rows.Count, 1).End(xlUp).Row Step 7
      For J = 1 To 19 Step 3
        If Len(.Cells(I, J)) > 2 Then
          Pos = Len(.Cells(I, J)) - 2
          .Cells(I, J).Characters(Pos, 2).Font.Size = 48
        End If
      Next J
    Next I
  End With
End Sub

Daniel