Sub MonTbS()
'
With shBilan
' Définir la plage pour le ListObject
Set Rng = .Range("A3:J6")
' Créer le Tableau Structuré
.ListObjects.Add(xlSrcRange, Rng, , xlYes).Name = "Tall"
.ListObjects("Tall").TableStyle = "TableStyleLight16"
.ListObjects("Tall").ShowAutoFilter = False
' Activer la ligne Totaux
.ListObjects("Tall").ShowTotals = True
' Écrire "TOTAUX" dans la colonne "Espèce"
Range("Tall[[#Totals],[Espèce]]").Value = "TOTAUX"
' Mettre un total dans la ligne des totaux de la colonne "Entrée"
.ListObjects("Tall").ListColumns("Entrée").TotalsCalculation = xlTotalsCalculationSum
' Recopier la cellule de totaux de la colonne "Entrée", de la colonne "Entrée" à la colonne "Décès"
Range("Tall[[#Totals],[Entrée]]").AutoFill Range("Tall[[#Totals],[Entrée]:[Décès]]"), xlFillValues
End With
End Sub