Je débute un peu dans les formulaires mais à priori ça te met toujours en A3 car tu as ce code :
Dim Nlign As Integer
Nlign = Range("A3").End(xlUp).Row + 1
If IsError(Range("A3").End(xlUp).Row) Then
Nlign = 1 '2
Else
Nlign = Range("A3").End(xlUp).Row + 1
End If
Tu as défini A3 à chaque fois au lieu de mettre une cellule variable je pense, à confirmer par un plus expérimenté.
Si tu veux qu'après un ajout de contact ça te re-ouvre ton formulaire au lieu de mettre "Unload" met "UserForm1.Show". Si tu ne veux pas mettre de nouveau contact tu appuiera sur annuler du coup
D'un point de vue ergonomie met plutôt le bouton valider à droite et annuler à gauche, mais ce n'est qu'un détail du coup.