A tester. Je pense qu'il y a plus simple.
Sub Clicmail()
If Range("K3:M3").Value ="" Then
MsgBox "La cellule n'est pas renseignée"
Exit Sub
Else
Range("K3:M3").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End If
End Sub
Range("K3:M3").Select
Err.Clear
On Error Resume Next
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
If Err = 9 Then MsgBox "Liens non renseignés"
Si tu fais quelques essais, tu verras qu'il n'y a pas un lien sur plage multiple mais plage multiple de liens.
Hyperlinks(1) appelle le lien de K3
Hyperlinks(2) appelle le lien de L3
Hyperlinks(3) appelle le lien de M3
D'où la suggestion d'adapter le code pour désigner la cellule défaillante.