Récupérer une police à partir d'une variable

Bonsoir à tous,

En A2= la taille de la police

En A3 = La hauteur de la police

En A5 = le nom de la police

j'ai écris le vba suivant:

Sub auto_open()
Range("B1:B1").Select
With Selection.Font
         Name = Cells(5, 1)
        .FontStyle = "Normal"
         Cells(2, 1).Select
         size = Cells(2, 1)
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
End Sub

le problème, la police et la taille ne changent pas. A ton avis quel est le problème?

Merci de ton aide

Cordialement

Edit Amadéus: Merci d'utiliser la balise code

bonsoir

je pense qu'il manque un point devant Name et size

      .Name = Cells(5, 1)
         .size = Cells(2, 1)

et le Cells(2, 1).select n'a pas lieu d'etre

fred