Sub versR5()
Dim numligne As Variant
'Si la cellule active n'est pas vide
If ActiveCell <> "" Then
'Chercher la cellule correspondante dans "R+5"
numligne = Application.Match(ActiveCell, Sheets("R+5").range("A:A"), 0)
'Si trouvée, aller lui dire bonjour.
If Not IsError(numligne) Then Application.Goto Sheets("R+5").range("A" & numligne)
End If
End Sub