Bonjour
une proposition :
Public Sub vev()
Dim trouvéfin As Range
Set trouvéfin = Range("a1:a" & Range("a65000").End(xlUp).Row).Find("Fin", LookIn:=xlValues)
If trouvéfin Is Nothing Then MsgBox "Aucune cellule trouvée": Exit Sub
Range(ActiveCell.Address, trouvéfin.Address).Select
End Sub
Salut
Hervé