Bonjour jean 8 ,le forum,
Essaie ceci:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B6:N18", "B21:N33")) Is Nothing Then
Calculate
End If
End Sub
Code à placer dans le module de la feuille.
Cordialement,