Problème Cells.Formula

Bonjour,

J'ai un problème pour une macro dans vba, je voudrais recopier la formule qui est présente dans une cellule tout en lui rajoutant un Single. Voici une partie de mon code:

      Dim difference As Single
 
        difference = 1.5
        Cells(1, 4).Formula = Cells(1, 4).Formula & " + " & difference
 

Malheureusement cela me fait une erreur d'execution 1004, j'ai ensuite essayé avec:

      Dim difference As Single, formule As String
 
        difference = 1.5
        formule = Cells(1, 4).Formula
        Cells(1, 4).Formula = formule & " + " & difference
 

Mais sans grand succès. Pouvez vous m'expliquer pourquoi ou m'aider à trouver une solution