Bonjour rem564
IL faut "retailler" la cellule de destination avec un Resize (Resize, lignes, colonnes)
Ubound te donne la grandeur du tableau (Attention si ton tableau commence à 0 il faut ajouter +1)
Donc
Sheets("Feuil1").Range("$A$1").Resize(Ubound(Tab,1),Ubound(Tab,2)) = Tab
Cordialement