Sub gloses()
'Macro 'gloses' à déclencher devant une phrase pour créer
'une table avec les mots de la phrase 'et 2 lignes de gloses vierges'
'Après avoir choisi ou créé un style de tableau, vous pourrez l'affecter dans 'la ligne
'.Style="Grille du tableau"
'duplique la phase
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Copy
    Application.Run MacroName:="Project.UniConsistentSpellingCheck.RightWedge"
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
    Selection.MoveUp Unit:=wdLine, Count:=1
    'creée une table à partir des mots de la phrase
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.ConvertToTable Separator:=" ", AutoFitBehavior:=wdAutoFitContent
    With Selection.Tables(1)
        .Rows.Add
        .Rows.Add
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .Style = "Tableau"
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With
End Sub