Remplacement de valeur

Bonjour à tous,

Je n'arrive pas à faire fonctionner cette macro censée remplir automatiquement un série de case à emplacement spécifique (8 cellules non-contigues sur une meme colonne).
Ce qui est bizarre, c'est que la ligne .Value = 3 fonctionne mais pas celle de dessous.
Bizarre...


Merci de m'eclairer (ceci est ma premiere macro ...)

Sub Sel_ligne()
Dim lig, lig_max, no_semaine
Dim formule, colonnes, nom_col
colonnes = Array("9", "10", "13", "14", "16", "17", "19", "20")
nom_col = Array("I", "J", "M", "N", "P", "Q", "S", "T")
lig_max = InputBox("Ligne max ?")
no_semaine = InputBox("N° Semaine ?")
lig = 9 + no_semaine
Do
For j = 0 To 7
formule = "=RECHERCHEV($A" + CStr(lig - no_semaine) + ";'WEEK " + Str(no_semaine) + "'!$A$2:$K$43;" + nom_col(j) + "$4;FAUX)"
' Cells(lig, CInt(colonnes(j))).Value = 3
Cells(lig, CInt(colonnes(j))).Value = formule
Next j
lig = lig + 14
Loop While lig <= CInt(lig_max)
End Sub