Salut jimmy76002 (ou Utilisateur222.222), salut fanch55, salut sylvanu,
En continuant sur ta structure, il y a une erreur de déclaration :
Dim a As Variant
a = Array(a1, a2, a3, a4, a5, a6, a7, a8, a9, a10)
doit être :
Dim a(10) as variant
PS : Dommage que tu n'ai pas poursuivi la discussion...