Sub AutreTest()
Dim Cel As Range, Ref As Range
For Each Cel In Feuil1.Columns(1).SpecialCells(xlCellTypeConstants)
If Cel.Offset(0, 1) <= 0 Then
Set Ref = Feuil2.Columns(1).Find(Cel.Value, LookIn:=xlValues)
If Not Ref Is Nothing Then Cel.Offset(0, 1) = Ref.Offset(0, 1)
End If
Next
End Sub