Sub chchval()
Dim LR, i As Integer
Dim sht1, sht2 As Worksheet
Set sht1 = Worksheets("Feuil1")
Set sht2 = Worksheets("Feuil2")
LR = sht2.Cells(sht2.Rows.Count, "A").End(xlUp).Row
For i = 1 To LR
If sht2.Cells(i, 1) <> sht1.Cells(1, 1) Then
i = i + 1
Else: sht2.Activate
ActiveSheet.Cells(i, 1).Select
End If
Next i
End Sub