Sub LancementURL()
Application.DisplayAlerts = False
Const URL1 As String = "mauvais"
Const URL2 As String = "pasbon"
On Error Resume Next 'si on n'arrive pas à ouvrir la 1ere URL, on passe à la seconde
Set TestURL1 = Workbooks.Open(URL1)
If Err.Number <> 0 Then
Err.Number = 0
Set TestURL2 = Workbooks.Open(URL2)
If Err.Number <> 0 Then
on error goto 0
MsgBox "Aucune des deux URL n'est valide"
Else
on error goto 0
MsgBox "FollowHyperlink URL2"
End If
Else
on error goto 0
MsgBox "FollowHyperlink URL1"
End If
End Sub