URL avec 1 variable

Bonjour

je débute sous excel et encore plus en vba alors pardonnez moi par avance si je ne suis pas très clair !

1-j'aimerais pouvoir récupérer pour ensuite traiter des données sous excel provenant d'un lien, URL contenant 1 variable d'une part !

cf le lien:

https://www.winamax.fr/poker/challenges/leaderboard_detail.php?user=barakha&lb=4718123

barakha etant en l'occurence le nom du joueur et donc ma variable !

j'aimerais pouvoir récuperer les données de tel ou tel joueur à ma convenance en tapant juste le nom du joueur dans une cellule sur une feuille 1 afin que les données récupérées s'affichent sur une feuille2

Par avance merci de votre aide !

jarrive à recuperer les données ainsi mais...

Sub variables()
   'variable nom du joueur
   Dim nom As String

   'Sélection de la cellule A1
    Range("A1").Select

   'Valeurs des variables
   nom = Cells(1, 1)

   'Activation de la feuille 2
   Sheets("Feuil2").Activate

   Workbooks.Open ("https://www.winamax.fr/poker/challenges/leaderboard_detail.php?user=" & nom & "&lb=4718123")

End Sub

le pb ca conserve toute la page web, j'aimerais garder que le texte ? comment faire ?

juste pOUr signaler que mon problème était résolu, j'ai réussi à le faire tt seul finalement en fouillant un petit Peu partout

voilà le résultat

Sub variables()
   'variable nom du joueur
   Dim nom As String

   'Sélection de la cellule A1
    Range("A1").Select

   'Valeurs des variables
   nom = Cells(1, 1)

   'Activation de la feuille 2
   Sheets("Feuil2").Activate

   'Sélection de la cellule A1
    Range("A1").Select

   'Extraction de données d'une Page Winamax en fonction du nom

    With ActiveSheet.QueryTables.Add(Connection:= _
        ("URL;https://www.winamax.fr/poker/challenges/leaderboard_detail.php?user=" & nom & "&lb=4718624") _
        , Destination:=Range("$A$1"))
        .Name = "leaderboard_detail.php?user=Jupy973&lb=4718624"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

    'effacer les 50 premières lignes

    Rows("1:50").Delete

End Sub

Bonne journée