Fermer un formulaire excel avec une macro

Bonjour,

j'ai fini de faire ma macro avec mon formulaire. je voudrais qu'une fois que j'ai cliquer sur
enregistrer, celui ci ferme mon formulaire mais me laisse toujours accès a mon fichier excel

Private Sub Annuler_Click()

'efface les champs
Commentaires = ""
dateinstall = ""
datelivraison = ""
Daterecep = ""
datevalid = ""
reflivraison = ""
Refmedia = ""
Systeme = ""
Version = ""

End Sub

Private Sub Enregistrer_Click()

'Vérification que tous les champs soient tous bien remplis afin de pouvoir effectuer le calcul et remplir le tableau
Select Case ""
    Case Commentaires
        MsgBox "Champ ''Commentaires'' vide", vbExclamation, "CHAMPS VIDE"
    Case dateinstall
        MsgBox "Champ ''dateinstall'' vide", vbExclamation, "CHAMPS VIDE"
    Case datelivraison
        MsgBox "Champ ''datelivraison'' vide", vbExclamation, "CHAMPS VIDE"
    Case Daterecep
        MsgBox "Champ ''Daterecep'' vide", vbExclamation, "CHAMPS VIDE"
    Case datevalid
        MsgBox "Champ ''datevalid'' vide", vbExclamation, "CHAMPS VIDE"
    Case reflivraison
        MsgBox "Champ ''reflivraison'' vide", vbExclamation, "CHAMPS VIDE"
    Case Refmedia
        MsgBox "Champ ''Refmedia'' vide", vbExclamation, "CHAMPS VIDE"
    Case Version
        MsgBox "Champ ''Version'' vide", vbExclamation, "CHAMPS VIDE"
End Select

'message sur le contenu saisie
MsgBox "Il est " & Time & Chr(10) & Chr(10) & "Vous avez saisi les informations suivantes " & Chr(10) & Chr(10) & " Systeme : " & Systeme & Chr(10) & " Version : " & Version & Chr(10) & " Date de réception officielle sur CSL : " & Daterecep & Chr(10) & " Référence des médias reçus : " & Refmedia & Chr(10) & " Date de validation: " & datevalid & Chr(10) & " Date de livraison vers le site : " & datelivraison & Chr(10) & " Référence livraison MOI : " & reflivraison & Chr(10) & " Date d'installation sur site OPS : " & dateinstall & Chr(10) & " Commentaires : " & Commentaires, vbInformation, "Informations saisies"

With Sheets(Systeme.Value)

'création du tableau
.Range("A1") = "Systeme"
.Range("B1") = "Version"
.Range("C1") = "Date de réception officielle sur CSL"
.Range("D1") = "Référence des médias reçus"
.Range("E1") = "Date de validation"
.Range("F1") = "Date de livraison vers le site"
.Range("G1") = "Référence livraison MOI"
.Range("H1") = "Date d'installation sur site OPS"
.Range("I1") = "Commentaires"


'Se mettre à la fin du tableau
If .Range("A1").Offset(1, 0) <> "" And .Range("B1").Offset(1, 0) <> "" And .Range("C1").Offset(1, 0) <> "" And .Range("D1").Offset(1, 0) <> "" And .Range("E1").Offset(1, 0) <> "" And .Range("F1").Offset(1, 0) <> "" And .Range("G1").Offset(1, 0) <> "" And .Range("H1").Offset(1, 0) <> "" Then

    .Range("A1").End(xlDown).Offset(1, 0) = Systeme
    .Range("B1").End(xlDown).Offset(1, 0) = Version
    .Range("C1").End(xlDown).Offset(1, 0) = Daterecep
    .Range("D1").End(xlDown).Offset(1, 0) = Refmedia
    .Range("E1").End(xlDown).Offset(1, 0) = datevalid
    .Range("F1").End(xlDown).Offset(1, 0) = datelivraison
    .Range("G1").End(xlDown).Offset(1, 0) = reflivraison
    .Range("H1").End(xlDown).Offset(1, 0) = dateinstall
    .Range("I1").End(xlDown).Offset(1, 0) = Commentaires
    
Else
   'Remplissage d'un tableau vierge
    .Range("A1").Offset(1, 0) = Systeme
    .Range("B1").Offset(1, 0) = Version
    .Range("C1").Offset(1, 0) = Daterecep
    .Range("D1").Offset(1, 0) = Refmedia
    .Range("E1").Offset(1, 0) = datevalid
    .Range("F1").Offset(1, 0) = datelivraison
    .Range("G1").Offset(1, 0) = reflivraison
    .Range("H1").Offset(1, 0) = dateinstall
    .Range("I1").Offset(1, 0) = Commentaires

End If

End With

'effacer les champs suite à l'enregistrement
Commentaires = ""
dateinstall = ""
datelivraison = ""
Daterecep = ""
datevalid = ""
reflivraison = ""
Refmedia = ""
Systeme = ""
Version = ""

End Sub

merci de votre aide