Recherche:

Tu n'as qu'à mettre le chemin "en dur" dans :

sChemin = ChoisirRepertoire & "\"

Ou, mieux, remplacer

sChemin = ChoisirRepertoire & "\" 'fonction pour choisir le répertoire...

Je confirme ce qu'à dit kiki : ton document ne contient pas des tableaux mais des images qui ressemble à des tableaux.
Esthétiquement, la différence est faible mais informatiquement elle est énorme....