Private Sub bt_Click()
Dim c As Range
If Bt.Caption = "OK" Then
ActiveSheet.Unprotect Password:="1012"
Selection.ClearComments
If Congés.TextBox1 <> "" Then
For Each c In Selection
c.AddComment Congés.TextBox1.Text
c.Comment.Shape.TextFrame.AutoSize = True
Next
End If
ActiveSheet.Protect Password:="1012", UserInterfaceOnly:=True
Else
Selection = Bt.Caption
Selection.Interior.Color = Bt.BackColor 'pour la couleur de fond
Selection.Font.Color = Bt.ForeColor 'pour la couleur de police
End If
AppActivate Application.Caption 'ôte le focus de l'UserForm
End Sub