Private Sub CommandButton10_Click()
[COLOR=Red][B]Unload Me[/B][/COLOR][COLOR=Green] '(ICI)[/COLOR]
Select Case MsgBox("Souhaitez-vous sauvegarder ces données ?", vbYesNo)
Case vbYes
MsgBox ("Données sauvegardées")
Application.DisplayAlerts = True
ThisWorkbook.Close SaveChanges:=True
Case vbNo
End Select
'Unload UserForm1
End Sub