[VBA/Excel] Formule IF contenant variable dans cellule

Bonsoir,

Je suis actuellement en train d'écrire une boucle for pour créer un tableau avec un nombre d'item correspondant au précédent choix de l'utilisateur.

Sur la gauche de ce tableau, il faut nommer l'item selon une double règle : Une lettre A, B ou C selon le type d'activité, puis un nombre pour les différencier. Pour cela, je souhaite insérer une formule IF selon le choix de l'utilisateur. Cependant, je bloque, je ne comprends pas pourquoi. Est-il impossible d'utiliser des variables pour désigner les cellules quand on utilise formula ?

Voici mon code

Dim iteritem As Integer
Dim NbreItem As Integer

NbreItem = Range("K2")


'Effacement ancien tableau
Sheets("Entrée commande").Range("B8:K500").Select
With Selection
.Interior.ColorIndex = xlNone
.Font.Bold = False

End With

'Mise en place formulaire
For iteritem = 1 To NbreItem

'Mise en place des Item

'Determine si Item A B ou C
Cells(9 * iteritem + 1, 2) = "=IF(Cells(9*iteritem+1, 7)=""Fourniture"",""A"",IF(Cells(9*iteritem + 1, 7)=""Transport"",""B"",""C""))"
"

'Détermine chiffre Item
If iteritem = 1 Then
Sheets("Entrée commande").Cells(9 * iteritem - 1, 3) = 1
Else
Sheets("Entrée commande").Cells(9 * iteritem - 1, 3) = "=IF(Cells(9*iteritem -1, 3)=Cells(9*iteritem -1, 3),Cells(iteritem -1, 3)+1,1)"

End If
..
(suite de la boucle ne présentant pas d'intérêt)
..
Next

End sub


Je vous remercie de l'intérêt que vous porterez à mon message, qui me seront fort utile pour sortir de ce problème


Cordialement,