XL 2016 Changer la taille du text d'un signet word a partir d'excel

Option Explicit

Sub test()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Long, fichier As String

    fichier = ThisWorkbook.Path & "\monDocument.doc"
    Set WordApp = CreateObject("word.application")
    Set WordDoc = WordApp.Documents.Open(fichier)
    WordApp.Visible = False

    For i = 1 To 3
        'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
        With WordDoc.Bookmarks("Signet" & i).Range
                  .Text = Cells(i, "A")
                  .Font.Name = "arial"
                 .Font.Size = 16
                 .Font.Bold = True
                 .Font.Italic = True
                .Font.Color = RGB(3, 34, 76)
       End With
    Next i

    WordApp.Visible = True
End Sub