Sub aligneMot() ' 'Pour remplacer par un tableau des lignes d'annotation où les mots sont alignés par des espaces ' mots = Selection.Words.Count lignes = Selection.Paragraphs.Count Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " " .Replacement.Text = " " .Execute Replace:=wdReplaceAll End With Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " " .Replacement.Text = " " .Execute Replace:=wdReplaceAll End With Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " " .Replacement.Text = " " .Execute Replace:=wdReplaceAll End With Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " " .Replacement.Text = " " .Execute Replace:=wdReplaceAll End With Selection.ConvertToTable Separator:=wdSeparateByDefaultListSeparator, _ NumColumns:=mots / lignes - 1, NumRows:=lignes, AutoFitBehavior:=wdAutoFitContent With Selection.Tables(1) .Style = "Grille du tableau" .ApplyStyleHeadingRows = True .ApplyStyleLastRow = False .ApplyStyleFirstColumn = True .ApplyStyleLastColumn = False End With Selection.Tables(1).AutoFitBehavior (1) Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone Selection.Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone Selection.Borders(wdBorderVertical).LineStyle = wdLineStyleNone Selection.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone Selection.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone End Sub