Incrémentation de formule VBA

[skullbones]

Bonjour à vous tous,

voilà je vous explique mon problème:
J'ai un bout de code en VBA qui me permet de coller une formule à chaque nouvelle ligne :

Code :

1
2
3
4
5
6
'BOUCLE POUR TROUVER LA PREMIERE LIGNE VIDE           
Do While Sheets("BDD").Cells(numligne, 11).Value <> ""
                           numligne = numligne + 1
                           Loop
 
            Sheets("BDD").Cells(numligne, 12) = "=IF(J3=""H"",C3+8,IF(J3=""M"",C3+31,IF(J3=""I"",C3+93,IF(J3=""C"",C3))))"

Ma problèmatique c'est que la cellule (J3) reste similaire et ne s'incremente pas de +1 à chaque nouvelle ligne.

Connaissez-vous une astuce pour ma formule s'adapte à la ligne suivante à chaque nouvelle incrementation?

Merci d'avance

Skull

[bbil]

2 choses ... - qu'elle est la correspondance entre le 3 de J3 et numligne
- tes formules générés sont-elles fonctionnelles (mis à par le J3 ) ?