selection avec range et tableaux structurés

Sub BoucleTableau()
esp = Chr(10)
 x = Environ("username")
Set MaListe = Sheets("Tableau").ListObjects("Tableau1")
Message = "Bonjour " & x & esp & _
                    "Mon Tableau comporte : " & esp & _
                    "- " & MaListe.HeaderRowRange.Columns.Count & " Colonnes" & esp & _
                    "- " & MaListe.DataBodyRange.Rows.Count & " Lignes" & esp & _
                    "- " & MaListe.DataBodyRange.Cells.Count & " Cellules" & esp & _
                    "- Adresse : " & MaListe.DataBodyRange.Address & esp & _
                    "- " & MaListe.DataBodyRange.SpecialCells(xlCellTypeBlanks).Count & " Cellule(s) vide(s)" & esp & _
                    "- " & MaListe.DataBodyRange.SpecialCells(xlCellTypeConstants, 23).Count & " Cellules(s) pleine(s)"
MsgBox Message
End Sub

Sub insererTexteTableau()
Dim lig, col As Integer
Texte = InputBox("Entrer votre Texte ici")
lig = InputBox("Entre le N° de la ligne ici - Exemple 1")
col = InputBox("Entre le N° de la Colonne ici - Exemple 2")
Set MaListe = Sheets("Tableau").ListObjects("Tableau1")
MaListe.DataBodyRange.Cells(lig, col).Value = Texte
End Sub