Cellule = variable : concaténer cette variable

Bonjour,

Je déclare au tout début de mon module en public la variable qui correspond à ma cellule( je la nomme c1 cette variable), c1 = Stock.Worksheets("ASM").Cells(134, 10)
Comme je l'utilise dans plusieurs procédures, la déclarer me permet de ne pas rallonger mes codes avec : Stock.Worksheets("ASM").Cells(134, 10) à chaque fois ...

Ainsi, je la déclare dans l'onglet "déclarations" au début de mon module en public bien sûr.
Dans la 1ère procédure j'affecte à cette variable sa valeur c'est à dire : c1 = Stock.Worksheets("ASM").Cells(134, 10)

et puis la ligne du dessous je soustrait à c1 une valeur mais ca ne marche pas ...
Par contre si je n'utilise pas c1 mais Stock.Worksheets("ASM").Cells(134, 10) ca fonctionne...
Je ne sais pas pourquoi

avez vous une solution à ce problème ?
Merci d'avance

Voici mon code :



Public c1 As Integer

---------------------------------------------------

Sub petitMikadocentral()
Dim Nom As Workbook 'Mon classeur
Dim Stock As Workbook 'L'autre classeur
Dim quantité As Integer


Set Nom = ActiveWorkbook
Set Stock = Workbooks.Open("C:\Users\clari\Documents\STAGE\Missions\Mission n°2\ASM-gestion stock.xlsm")

quantité = Nom.Worksheets("Feuil1").Cells(5, 8)
c1 = Stock.Worksheets("ASM").Cells(134, 10)

'platine : C1

c1 = c1 - quantité * Nom.Worksheets("Feuil1").Cells(4, 4)


Nom.Worksheets("Feuil1").Cells(5, 8) = 0



End Sub