Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G5")) Is Nothing And Target <> "" Then
cellule = "" & Application.VLookup(Target, [B2:C23], 2, 0) & ""
Sheets([G5].Text).Select
ActiveSheet.Range(cellule).Activate
End If
End Sub