Salut Thibaulte Forum,
Dans une syntax comme suit :
Sub XLD ()
Dim Link as String
Link = "http://www.excel-downloads.com/"
ActiveWorkbook.FollowHyperlink Address:=Lien, NewWindow:=True
End Sub
Il suffit de mettre NewWindow:=False
Bon Travail
@+Thierry