Option Explicit
Private Sub UserForm_Initialize()
'Désactivation du bouton OK à l'ouverture du USF
BoutonOK.Enabled = False
'...
End Sub
Private Sub ComboBox1_Change()
Static MaValeur As Variant
'Le bouton OK est désactivé tant que la valeur de ComboBox1 est inchangée
If IsEmpty(MaValeur) Then MaValeur = ComboBox1.Text
BoutonOK.Enabled = ComboBox1.Text <> MaValeur
End Sub
Private Sub BoutonOK_Click()
'Ce que tu veux faire ici...
'...
End Sub