Somme entre 3 colonnes pour chaque ligne sous VB10

Bonjour,

J'utilise Visual Basic 2010.
A l'aide d'un nouveau module, je veux actualisé une feuille "feuil1" à la fermeture d'un formulaire (clique sur un bouton).
Donc mon code est indépendant et se situe dans un module, "module1".

Ma base de donnée début à la ligne 3 (libellé précédemment) et bouge au fil du temps.
Donc je veux que pour chaque ligne de ma BD, la somme de 3 cellules s'additionne dans une quatrième (G3=D3-E3+F3).
J'arrive à faire le code de la première ligne avec ce qui suit :

Sub Sum()
Set Ws = Sheets("Feuil1")
Ws.Range("G3").Value = WorksheetFunction.Sum(Range("D3"), -Range("E3"), Range("F3"))
End Sub

J'ai essayé des choses avec [A65000].End(xlUp).row mais je bloque.

Pouvez vous m'aider, s'il vous plait ? :D

http://www.cjoint.com/c/EGmiGhWPUO6

Merci
Pierre-Antoine