Saisie de données

Bonjour à tous
Je débute sur les bases de données sur excel /vba (sur vidéo 'netprof" formulaire de saisie " vidéo 2.Pour valider la saisie,càd
-1transferer les données saisies sur un tableau
-2 vider les champs de saisie
-3preparer la ligne suivante du tableau ,

l'instruction suivante a été écrite par l'enseignant :

Private Sub CommandButton4_Click()
Rows("2:2").Select
Selection.Insert Shift:"xlDown,CopyOrigine:"xl.FormatFromLeftOrAbove
Unload UserForme1
Load UserForm1
UserForme1.Show
End Sub

Malheureusement elle ne marche pas .Où serait d'après vous l'anomalie

Merci infiniement