Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G2")) Is Nothing Then
If [G2] <> "Vidange à faire" Then
CommandButton1.Visible = True
End If
If [G2] = "Vidange à faire" Then
CommandButton1.Visible = False
End If
End If
End Sub