Lancer flickr et compfight

Bonjour à tous

Je suis un utilisateur modeste de Vba, mais j'aimerais lancer à partir d'une colonne excel, une recherche de multitude d'images sur Flickr (en utlisation commercial et modifications autorisés) et compfight également ainsi qu'un autre site www.terranovanurseries.com

J'avoue que je coince:oops:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub recherche_photos()   Dim FlickrLink As String, compfight As String     FlickrLink = "https://www.flickr.com/search/?q=" & ActiveCell.Value & "&license%3D1%2C2%2C9%2C10&license=4%2C5%2C6%2C9%2C10" ThisWorkbook.FollowHyperlink FlickrLink   compfightLink = " http://compfight.com/search/=" & ActiveCell.Value & "&/1-2-1-1" ThisWorkbook.FollowHyperlink compfightLink 'Ouverture Compfight en mode paramétré

---

Mais le nom ne s'affiche pas dans la barre de recherche

d'autre part est-il possible de lancer un site en même temps www.terranovanurseries.com

Merci à tous de votre aide:)