Programmation de Ms project

Bonjour,
S'il vous plait aidez moi je suis désespérée, Je suis entrain de programmer des form avec Ms Project, j'ai trouvé un petit problème. J'arrive pas à trouver le code qui me permettra de renvoyer le curseur automatiquement à la dernière ligne vide pour insérer une nouvelle tâche. voici mon code :
"Private Sub OK_Click()
' Permet de créer un nouveau projet en donnant un numéro
Dim t As Integer
OutlineShowTasks OutlineNumber:=pjTaskOutlineShowLevel1
SelectTaskField Row:=0, Column:="Nom"
t = TextBox1.Value
SelectTaskField Row:=0, Column:="Nom"
SetTaskField Field:="Nom", Value:="PROJET 0" & t
SelectTaskField Row:=1, Column:="Nom"
SetTaskField Field:="Nom", Value:="ETUDES 0" & t
SelectTaskField Row:=1, Column:="Nom"
SetTaskField Field:="Nom", Value:="ESQUISSE ARCHITECTE 0" & t
SelectTaskField Row:=1, Column:="Nom"
SetTaskField Field:="Nom", Value:="APS 0" & t
SelectTaskField Row:=1, Column:="Nom"
SetTaskField Field:="Nom", Value:="APD 0" & t
SelectTaskField Row:=1, Column:="Nom"
SetTaskField Field:="Nom", Value:="DCE 0" & t
SelectTaskField Row:=1, Column:="Nom"
SetTaskField Field:="Nom", Value:="AMT 0" & t
SelectTaskField Row:=1, Column:="Nom"
SetTaskField Field:="Nom", Value:="TRAVAUX 0" & t
SelectTaskField Row:=1, Column:="Nom"
SetTaskField Field:="Nom", Value:="PREPARATION DU CHANTIER 0" & t
SelectTaskField Row:=1, Column:="Nom"
SetTaskField Field:="Nom", Value:="EXECUTION DES TRAVAUX 0" & t
SelectTaskField Row:=1, Column:="Nom"
SetTaskField Field:="Nom", Value:="RECEPTION 0" & t
SelectTaskField Row:=1, Column:="Nom"
SelectTaskField Row:=-10, Column:="Nom", Height:=9
OutlineIndent
SelectTaskField Row:=4, Column:="Nom"
SelectTaskField Row:=-3, Column:="Nom", Height:=4
OutlineIndent
SelectTaskField Row:=6, Column:="Nom", Height:=2
OutlineIndent
TextBox1.Value = ""
frm15NouveauProjet.Hide
End Sub"
Merci d'avance.