J'ai ces lignes de codes qui me posent problème et je ne comprends pas pourquoi, quelqu'un pourrait-il m'éclairer ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Dim poids As Long
Dim nbcom,a As Integer
With Sheets("Feuil1")
a = .Range("A23").End(xlToRight).Column '=4
nbcom = .Range("A3").End(xlDown).Row - 2 ' =6
poids = .Cells(j, c.Column).Value ' =0,3577
.Cells(24, a + nbcom + 1).Formula = "=RC[-" & nbcom + 1 & "] *" & poids 'nbcom = 6 ; poids = 0,3577 : a = 4
 
End With
Le problème intervient quand j'ajoute à la formule & poids
l'expression
Code : Sélectionner tout - Visualiser dans une fenêtre à part
.Cells(24, a + nbcom + 1).Formula = "=RC[-" & nbcom + 1 & "]"
seule ne pose pas de problème
J'obtiens le message d'erreur "Erreur définie par l'application ou par l'objet"

Je ne comprends pas pourquoi, ce n'est pas la première fois que j'utilise ce genre de syntaxe et d'habitude pas de problème.

J'ai essayé de remplacé poids par Replace(Cstr(poids),",",".") mais ca ne marche pas non plus

Quelqu'un a une idée ?

Merci bien !