Bonjour,
Je pense que tu peux essayer quelque chose comme ça :
Sub GoogleIt()
Static line As Integer
line = line + 1
Dim url As String
url = "https://www.google.com/search?q=" & Range("A" & line).Value
Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe -url " & url) 'ou ton navigateur préféré
If Range("A" & line + 1).Value = "" Then line = 0
End Sub
à adapter à ton cas bien entendu.
Je te laisse revenir vers moi pour savoir si ça fonction (non je ne l'ai pas testé)
cordialement