Ajout de caractères fin d'une cellule VBA

Bonjour,

Je débute en VBA et je ne sais pas comment résoudre un problème que je rencontre. J'ai dans une colonne plusieurs fois les mêmes références, donc j'aimerais les différencier de la manière suivante:
TF0145(1)
TF0145(2)
TF0145(3)
GR1545(1)
GR1545(2)
...

Pour différencier un type de référence, j'avais pensé faire un truc du genre:
Dim i As Integer
Dim j As Integer
For i = 5 To 11
For j = 1 To 6
Worksheets("Feuil1").Cells(i, 2) = Worksheets("Feuil1").Cells(i, 2) & "(" j ")"
Exit For
Next j
Next i

Mais j'ai une erreur de syntaxe et je ne sais pas comment la résoudre.
Quelqu'un aurait une solution pour moi svp?