Microsoft 365 [VBA] Macro suppression de tableau dans word depuis excel

[Chessnocoma]

Bonjour,

Je cherche à agir sur des tableaux figurant dans un document word et cela depuis excel pour le moment cela donne ceci :

Private Sub traitement_tableaux()
    Dim ws As Worksheet
    Dim i As Integer
  
 
    Set ws = Sheets("DATA")

     For i = 9 To 1 Step -1
        If ws.Cells(i, 6) = False Then
            ' on supprime le paragraphe
            WordDoc.Tables(i).Delete
        End If
    Next i
  
End Sub

Est il possible plutôt que de les supprimer, de remplacer leur contenu par le mot "Réservé" ou remplacer ces tableau par le mot "Réservé"

Merci de votre aide,

A bientôt,

Chessnocoma