J'ai le code suivant afin d'insérer des formules dans différentes cellules. Je ne comprends pas pour quelle raison ca ne fonctionne pas

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sheets("Impression").Select 'met à zero la feuille de lots
    Range("b10:p1000").Select
        Selection.Value = ""
    Range("i10").FormulaLocal = "=si(d10="";"";ANNEE(d10))"
    Range("h10").FormulaLocal = "=SI(D10="";"";SI(MOIS(D10)<5;"Printemps";SI(MOIS(D10)<9;"Eté";"Automne")))"
    Range("m10").FormulaLocal = "=si(g10="";"";RECHERCHEV(G10;ObjVel!A2:D35;2;1)"
    Range("n10").FormulaLocal = "=si(g10="";"";RECHERCHEV(G10;ObjVel!A2:D35;4;1)"