Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B4")) Is Nothing Then
Call Test_reseau
End If
If Not Intersect(Target, Range("B6")) Is Nothing Then
Call Test_reseau
End If
If Not Intersect(Target, Range("B8")) Is Nothing Then
Call Test_reseau
End If
If Not Intersect(Target, Range("B10")) Is Nothing Then
Call Test_reseau
End If
If Not Intersect(Target, Range("B12")) Is Nothing Then
Call Test_reseau
End If
End Sub