Private Sub Worksheet_Change(ByVal Target As Range)
' **** pour le bouton 1 ****
If CommandButton1.Visible = False Then
If Range("D2").Value = "MDP" Then
CommandButton1.Visible = True
Else
CommandButton1.Visible = False
End If
End If
'*******
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
CommandButton1.Visible = IIf([D2] = "MDP" And [D2] <> "", True, False)
End Sub