Sub tableau2col()
'
' tableau2col Macro
'
'
    Selection.ConvertToTable Separator:=wdSeparateByParagraphs, NumColumns:=1, _
         NumRows:=7, AutoFitBehavior:=wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Table Grid" Then
            .Style = "Table Grid"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
    End With
    Selection.Tables(1).Columns(1).SetWidth ColumnWidth:=198.2, RulerStyle:= _
        wdAdjustNone
    Selection.SelectColumn
    Selection.Copy
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.Font.Hidden = wdToggle
End Sub