J'ai encore avancé un peu mais la je bloque.

 

Sub test()

    Dim IE As Object
    Dim IEdoc As Object
    Dim DOCelement As Object
    Static L As Long

    Set IE = CreateObject("InternetExplorer.Application")

    IE.Visible = True

    IE.Navigate ("www.dl-ligue.com")

    Call pause

    Do Until IE.ReadyState = 4
        DoEvents
    Loop

    Set IEdoc = IE.document

    If Cells(1, 1) Then L = 0
        L = L + 1
        With DOCelement
        Set DOCelement = IEdoc.getElementsByName("A3").Item
        DOCelement.Value = Cells(L, 1).Text
        Set DOCelement = IEdoc.getelementsbytagname("button")(12)
        DOCelement.Click
        End With
 
    If Cells(L + 1, 1) <> "" Then MsgBox ("Traitement terminé !")

    Set IE = Nothing

End Sub

Sub pause()
      Application.Wait Now() + TimeValue("00:00:10")
End Sub

Je n'arrive pas a faire comprendre à la macro qu'après avoir testé le numéro en A1 il faut qu'elle passe à A2 puis A3 etc etc jusqu'à ce que la colonne soit vide.
La elle fait A1 et j'ai le message "traitement terminé"