Sub CreationTableau()
Dim Ws As Worksheet
Dim NomTable As String

'xlSrcExternal 0 Source de données externes (site Microsoft Windows SharePoint Services).
'xlSrcQuery 3 Requête
'xlSrcRange 1 Plage
'xlSrcXml 2 XML

NomTable = "Table1"
Set Ws = Worksheets("Feuil1")

'Un exemple qui prend en compte les cellules voisines à A1
With Ws
    .ListObjects.Add(xlSrcRange, .Range("$A$1").CurrentRegion, , xlYes).Name = NomTable
    .ListObjects(NomTable).TableStyle = "TableStyleMedium5"
End With


'Un autre exemple qui prend en compte une plage spécifique.
'With Ws
    '.ListObjects.Add(xlSrcRange, .Range("$B$5:$F$30"), , xlYes).Name = NomTable
    '.ListObjects(NomTable).TableStyle = "TableStyleMedium5"
'End With
End Sub

Worksheets("Feuil1").ListObjects("Table1").Unlist

Sub BoucleTableauxFeuille()
Dim Ws As Worksheet
Dim ListObj As ListObject

Set Ws = Worksheets("Feuil1")

For Each ListObj In Ws.ListObjects
    MsgBox ListObj.Name & " : " & ListObj.Range.Address & vbCrLf & _
    "Style: " & ListObj.TableStyle
Next
End Sub

Sub AjouteLigneTableau()
    Dim ListObj As ListObject
    Dim i As Integer
     
    'Définit le tableau dans la feuille de calcul
    Set ListObj = Worksheets("Feuil1").ListObjects("Table1")
    'Ajoute une ligne
    ListObj.ListRows.Add
     
    'Boucle pour ajouter une info dans chaque cellule de la
    'nouvelle ligne.
    '(dans cet exemple, le tableau contient 4 colonnes)
    For i = 1 To 4
        With ListObj.Range(ListObj.ListRows.Count + 1, i)
            .Value = "info" & i
            
            'Modifie la police
            '.Font.Name = "Comic sans MS"
            'Modifie la taille des cratères
            '.Font.Size = 8
        End With
    Next i
End Sub

Sub AjoutAnnotationTableau()
    
    'Affecte un commentaire
    Worksheets("Feuil2").ListObjects("Tableau1").Comment = "Mon commentaire"
    'Vérifie le contenu du commentaire
    MsgBox Worksheets("Feuil2").ListObjects("Tableau1").Comment

End Sub

Sub TriTableau()
    'Trie par ordre croissant, la deuxième colonne du tableau "Tableau1".
    With ThisWorkbook.Worksheets("Feuil1").ListObjects("Tableau1").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("Tableau1[[#All],[Colonne2]]"), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Sub FiltreTableau()
    'Filtre la deuxième colonne du tableau (Field:=2), pour les
    'données commençant par la lettre "A". La procédure n'est pas
    'sensible à la casse.
    Worksheets("Feuil1").ListObjects("Tableau1").Range.AutoFilter _
        Field:=2, Criteria1:="=A*"
    
    'Renvoie la plage de cellules visibles après l'application du filtre.
    MsgBox Worksheets("Feuil1").ListObjects("Tableau1").Range.Cells. _
    SpecialCells(xlCellTypeVisible).Cells.Address
End Sub