Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B7:B70, D7:D70, F7:F70, H7:H70, J7:J70, L7:L70, N7:N70, P7:P70, R7:R70")) Is Nothing Then
If Target <> "" And Target <> "vide" Then Ping_ordinateur Range(Target.Address)
End If
End Sub