bonjour a tous 

je reviens sur un travail (myDearFriend!)

 sur le site GE.... 

ce qui m'i nterresse dans ce fichier c'est la combobox 

je  cherche un bout de code  avec une combobox qui click le preimier lien et passe au lien suivant ect ... jusque la fin de la list  

je ne connais pas du tt les combobox ,  ni list box 

est ce que avec une boucle toute bete

en definissant 

le debut et la fin  

le debut serait defini soit par input box  ou une cellule 

et la fin soit par une cellule egalement soit par defaut serait la derniere ligne non vide de lalist box 

( je ne sais pas si cette focntion existe ) genre>>>  ListCount .End(xlUp)

 for X = debut    to    fin   

   puis 

   code vba

   ( while combo ...   voir vba plus loin )

 valide le X lien  

   ici  on fait plein de truc ... 

   macro pour preparer le cafe ,  

   macro mettre croissant dans four 

   ect ... 

Next X  ( on s'attaque au lien X + 1 ) 

puis on repart pour un nouveau cycle avec le lien suivant 

ca me parait un peu simpliste 

 With ActiveSheet.ComboBox1
        .Clear
        .ColumnCount = 2
        .BoundColumn = 2
        .Style = fmStyleDropDownList
        .AddItem "< choisir une course >"
        Lmax = IEdoc.Links.Length
        For Each O In IEdoc.Links
            L = L + 1
            Application.StatusBar = "Patientez... " & L * 100 \ Lmax & " %"
            If O.href Like vUrl & "*" Then
                T = Mid(O.href, Len(vUrl) + 1)
                T = Left(T, InStrRev(T, "_") - 1)
                .AddItem T
                .List(.ListCount - 1, 1) = O.href
            End If
        Next O
        .ListIndex = 0
    End With

je en sais pas si j'ai ete tres clair dans mes explications 

l'enregistreur de macro aurait u faire le travail ( mais des que 'lon click sur un combobox il ne voit rien ! )