probleme if

Bonjour le forum
Comment eviter que
Range("CL8").Select
Selection.ClearContents
s'execute quand y=2005
end if ,ne fonctionne pas

Merci pour vos réponse


Dim x As Long
Dim y As Long
y = Range("B1").Value
If y = 2004 Then Range("A150").Value = 50
x = Range("A150").Value
Range("CL8").Select
Selection.ClearContents


If y = 2005 Then Range("A150").Value = 100
x = Range("A150").Value
Range("CL9").Select
Selection.ClearContents