Sub AffichePremLigne()
Dim x As Range
Set x = Cells.Find(What:="27c27", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
ActiveWindow.ScrollRow = x.Row
End Sub