' Recherche du joueur
rep = InputBox("le nom du joueur ?")
Columns("E:E").Select
Cells.Find(What:=rep, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
' Recherche ID
Sheets("players").Select
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=4, Criteria1:=rep
ActiveCell.Offset(0, -1).Select
Selection.Copy
' Recup ID
Sheets("players").Range("M1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Création lien hypertexte
Range("N1").Select
ActiveCell.FormulaR1C1 = "=RC[-2]&RC[-1]"
Range("N1").Select
Selection.Copy
Range("O1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Range("O1").Value
' Aller sur le site Web
Range("O1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
' Remettre les filtres
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=4