Bonjour!

J'ai un problème avec la ligne de code suivante:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
With Worksheets(3)
For i = 2 To LastLig 'ligne
    If Sheets(2).Cells(i, 12).Value = "OK" Then
    x = Sheets(2).Cells(i, 15).Value
    For j = 1 To x
    For k = 1 To LastYear 'colonne
        If .Cells(i, k).Value = 0 Then
        .Cells(i, k).FormulaR1C1 = "=IF(AND(YEAR(DATE(YEAR(DATA!RC10),month(DATA!RC10)+(12*" & j - 1 & "),day(DATA!RC10)))=YEAR(R1C),MONTH(DATE(year(DATA!RC10),month(DATA!RC10)+(12*" & j - 1 & "),day(DATA!RC10)))=month(R1C)),DATA!RC8*DATA!RC7/100,0)*(VLOOKUP(DATA!RC6,'CRCY'!R1C1:R14C3,3,0))"
        End If
    Next k
    Next j
next i
end with
La macro vba se bloque à la formule R1C1 mais seulement à partir de la ligne 51 (il y a 52 lignes, donc LastLig=52) colonne 6 (LastYear = 228). Avant ça, tout se calcule parfaitement.

Or, quand je clique sur "Debug", le calcul se fait sans problème, sauf que je dois faire ça sur toute la boucle k et j...

Comment expliquer ce bloquage qui n'en est apparemment pas vraiment un?

Merci d'avance pour vos réponses.