Bonjour,
Cette partie semble vraiment très isolée...
je n'ai pas vu cette syntaxe.
Il faudrait créer une Sub qui passe le numéro de la Table en paramètre
Sub MaTable(laquelle as integer)
With ...
.Tables(laquelle)
End With
End Sub
et tu appelles 3 fois...
Call MaTable(5)
Call MaTable(6)
Call MaTable(7)