Cells(Compteur + 10, 15).Resize(LBound(MyArray_G_1), UBound(MyArray_G_1, 2)) = MyArray_G_1
Bonjour Hoareau.
Voilà un exemple d'une de tes lignes à modifier :
VB:Cells(Compteur + 10, 15).Resize(LBound(MyArray_G_1), UBound(MyArray_G_1, 2)) = MyArray_G_1
Tu remarques le ",2". En effet quand tu redimensionnes ton ta zone, tu dois prendre en compte le nombre de "colonnes" soit la seconde dimension de ton array et pas la première.