restitution

Bonjour, mon code devrait restituer une valeur numérique, mais il me restitue du texte. Comment cela se fait t-il ? Sub Calcul() Dim chemin$, fichier$, a(), n& chemin = ThisWorkbook.Path & "\" fichier = Dir(chemin & "gestion*.xlsx") ReDim a(1 To Rows.Count, 1 To 2) While fichier <> "" n = n...