isConnect()

' isConnect by DeeZ.

Sub isConnect()
If WebBrowser.? Then 'Document après je sait plus je crois pas que c'est ça.

Else
MsgBox("Impossible d’effectuer cette action vous n'êtes pas connecter !")
End Sub

'On fait une vérification à chaque action ou on doit être connecter
'PS: J'ai fait çà vite fait :D