Somme de 2 valeurs

Bonjour,

A travers une valeur dans une boîte de dialogue, je souhaiterai que cette valeur, une fois que j'aurai cliqué sur OK, s'additionne à une valeur déjà existante dans une case et que le résultat de cette case apparaisse dans cette même case.

Pour cela, j'ai écrit :
PrivateSub_OK1 Click

Sheets("Tableau").Select

If designation1="touret" Then Range("F138").Value = Range("F138").Value + quantite1.Value

End If
End Sub

Mais ça fonctionne pas :(
Si quelqu'un avait une solution ce serait le top!!!