update date macro MsProject

bonjour j ai fait une macro mais elle ne marche pas
pouvez vous m'aider
c'est la ligne de updateproject qui ne fonctionne pas mais je ne sais pas comment résoudre le problème.

Sub Macro3()

Dateprojet = "SelectTaskField Row:=0, Column:=Début"

Datefin = "SelectTaskField Row:=0, Column:=Fin"

While (Dateprojet <= Datefin)

UpdateProject All:=True, UpdateDate:=Dateprojet, action:=1

MsgBox ("SelectTaskField Row:=0, Column:=% achevé")

Dateproject = "SelectTaskField Row:=0, Column:=Début" + 7

Wend

End Sub