Private Sub CommandButton1_Click()
dim oui
If Evo_oui.Value = True Then New_Evo:oui=oui+1
If Period_oui.Value = True Then New_TCD_period:oui=oui+1
If Year_oui.Value = True Then New_TCD_Year:oui=oui+1
Unload Me 'vide et ferme l'UserForm
Msgbox oui & " OUI"
MsgBox " Opération(s) Effectuée(s).", vbExclamation, "Sauvegarde"
End Sub