Code vBa sur excel

Bonjour,

Je voudrais créer un message qui invite l'utilisateur à saisir son nom.
Si l'utilisateur clique sur OK, le programme sauvergarde son nom dans la cellule A1
Si on clique sur Annuler, le programme affiche un message "Fin du programme"
Et on clique sur ok alors que le nom est vide, le programme doit afficher un message d'erreur "ERREUR LE NOM EST VIDE" et réinviter l'utilisateur à taper un nom.

J'ai commecé le code VBA:
Rem Attribute VBA_ModuleType=VBADocumentModule
Sub Feuil1
Sub ranger()
Dim nom As String
Dim prénom As String

nom = InputBox("Tapez votre nom", "Identité")
If nom = vbOK Then
Range("c4") = nom
Else
MsgBox "OK"
End If
End Sub