Hello ks13,

Deux choses :

1) Tu fais varier ton indice de 0 à 10, ce qui te permet d'obtenir les 11 postes de ton tableau. OK.
Mais dans ta boucle For..., ça te conduit à atteindre la cellule A0 ("A" & i), et cette cellule n'existe pas.
Donc soit tu codes : "A" & i + 1,
soit tu mets en début de module Option Base 1, ce qui fait que l'indiçage de ton tableau ira de 1 à 11, et non de 0 à 10.

2) Remplace

Sheet.Range("A" & i).Select
Sheet.Selection.Value = listePartenaires(i)

par

Sheet.Range("A" & i).Value = listePartenaires(i)