Salut Bruno,le forum,
essaie ceci :
Private Sub CommandButton1_Click()
'le bouton ferme et sauvegarde toutes les données du classeur
Unload userform1
With Application
ThisWorkbook.Save
.DisplayAlerts = False
.Quit
End With
End Sub
Et bienvenue sur XLD
Marc