Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" _
(ByRef lpdwFlags As Long) As Long
Private Sub Worksheet_Activate()
Select Case IsNetworkAlive(0)
Case 0:
Range("G17").Value = "Graphe non actualisé..."
Exit Sub
Case Else:
Range("G17").Value = ""
Feuil5.DrawingObjects.Delete
tableau
'sub qui créer un tableau à partir d'internet
End Select
End Sub