Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
premLigTablo1 = 5
premLigTablo2 = 14
premLigTablo3 = 26
Application.ScreenUpdating = False
If Not Intersect(Target, Range(Cells(premLigTablo1 + 1, 7), Cells(premLigTablo2 - 4, 23))) Is Nothing Then ' Test si plage1
'Si modification de la quantité de pièces Tableau1, calcul auto du nombre d'équipes Tableau2
' Macro de traitement
ElseIf Not Intersect(Target, Range(Cells(premLigTablo2 + 1, 7), Cells(premLigTablo3 - 4, 23))) Is Nothing Then ' Test si plage2
'Si modification du nombre d'équipes Tableau2, calcul auto du nombre de pièces tableau1
' Macro de traitement
End If
Fin:
End Sub