Private Sub CmdFermer_Click()
Dim Ctl As Control, Passe As Boolean
For Each Ctl In Me.Controls
If TypeName(Ctl) = "TextBox" Or TypeName(Ctl) = "ComboBox" Then
If Ctl.Text <> "" Then
Select Case Ctl.Name
Case "TxtAcompte"
Passe = False
Case Else
Passe = True
End Select
End If
End If
Next
If Passe = True Then
MsgBox "Vous avez des données restantes"
Exit Sub
End If
Unload Me
ThisWorkbook.Saved = True
' quand tu auras fini tes modifs enlève la coche commentaire et ainsi quand tu fermera le formulaire excel sera fermer en même temps
'Application.Quit
End Sub