Variable objet ou variable de bloc with non définie

Bonjour tout le monde, j'ai trouvé un problème lors de l'exécution de ce programme vba , aidez moi à trouver la solution et merci. 

C'est mon code :

Sub Creteria()
 Dim Feuil1 As Worksheet
Dim lastcol As Long
Dim x As Long
Dim countCr As Long

lastcol = Feuil1.Cells(1, Columns.Count).End(xlToLeft).Column
For x = 1 To lastcol

If Range("4" & x).Value <= 0.5 Then

countCr = countCr + 1

End If
Next x

End Sub