ReBonsoir Bichon et le forum
Je pense qu'avec ces rectif cela devrait le faire...@+
Private Sub CommandButton21_Click()
Dim Formulaire As UserForm
Dim NomFic As String
Dim Rep As String
NomFic = ActiveWorkbook.Name
Application.DisplayAlerts = False
MsgBox "Merci le fichier a été enregistré dans : " & CurDir("F:")
ActiveWorkbook.SaveAs Filename:="F:\" & NomFich, FileFormat:=xlNormal
Application.Quit
End Sub