Bonjour,
Sub Macro1()
Dim Valeur, Prefixe, Suffixe, Lien As String
Dim Boucle As Integer
Prefixe = "http://www.google.ca/search?hl=en&ie=UTF-8&q="
Suffixe = "&btnG=Google+Search&meta="
Range("C3").Select
For Boucle = 3 To 5
Range("C" & Boucle).Select
Valeur = ActiveCell.Offset(0, -1).Value
Lien = Prefixe & Valeur & Suffixe
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Lien, TextToDisplay:="Liens"
Next Boucle
End Sub
N.B. Attention aux accents dans la colonne B
Lupin