Mise en forme VBA

Bonjour,

J'ai une macro qui me permet de mettre en forme les cellules d'une sélection donnée.

Toutefois, j'ai une erreur d'exécution '438' (Propriété ou méthode non gérée par cet objet) qui pointe sur la ligne ci-dessous en débogage :

 .Size = 12

Mon code :

Sub Select1()
    With Feuil1
        'Zone de formatage des données
        Set zone = .Range(.Cells(5, 1), .Cells(.Cells(.UsedRange.Count, 1).End(xlUp).Row, 15))

        With zone
        .Name = "Arial"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
        End With
End With
End Sub

Merci d'avance pour votre aide,

Baptiste

Bonjour,

Plus court en ôtant les lignes inutiles

Sub Select1()
    With Feuil1
        'Zone de formatage des données
        Set zone = .Range(.Cells(5, 1), .Cells(.Cells(.UsedRange.Count, 1).End(xlUp).Row, 15))

        zone.Select
          With Selection.Font
            .Name = "Arial"
            .Size = 12
            .ColorIndex = xlAutomatic
          End With
          With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = True
            .ReadingOrder = xlContext
          End With
    End With
End Sub

Bonjour M12

Merci beaucoup pour ton aide, je n'ai plus d'erreur d'exécution et cela fonctionne.

Bapt.