Une macro qui ne fonctionne qu'avec 32 lignes et pas plus ???

Bonjour,
on m'a envoyé une macro pour lier les cellules d'une feuille "Index" avec la même cellule de plusieurs feuilles clients.
Elle marche parfaitement jusqu'à 32 clients, et après NON
J'ai les 2 tableaux, l'un avec 32 clients, l'autre avec 33, et ça fonctionne avec le premier, ça bug avec le 2ème ?? alors qu'ils sont identiques, si ce n'est le nombre de clients.
Je ne sais pas comment vous faire parvenir ces 2 tableaux.
merci
la macro utilisée :

Option Explicit
Sub test()
'Déclare la variable objet Worksheet
Dim Ws As Worksheet
Dim ligne As Integer 'feuille INDEX
Dim i As Integer
ligne = 3
i = 3
'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name <> "Index" And Ws.Name <> "Model" And Ws.Name <> "Listes" Then
    Sheets("INDEX").Range("D" & ligne).FormulaR1C1 = "=" & Ws.Name & "!R[" & i & "]C[9]"
    
   
   ligne = ligne + 1
   i = i - 1
    End If
Next Ws
End Sub