Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$27" Then
If Target.Value > Sheets("Paramètres").Range("B24").Value And Target.Value <= Sheets("Paramètres").Range("D24").Value Then
CommandButton2.Visible = True
Else
CommandButton2.Visible = False
End If
End If
End Sub