calcul automatique

Private Sub Worksheet_Change(ByVal Target As Range)
If IsEmpty(Target) = True Then Exit Sub
If Not Intersect(Target, Range("R7:W46")) Is Nothing Then
Exit Sub
End If
For j = 3 To 15 Step 3
If Cells(Target.Row, j).Value = "x" Then
M = M + 3
End If
Next j
Cells(Target.Row, 18).Value = M
For j = 4 To 16 Step 3
If Cells(Target.Row, j).Value = "x" Then
C = C + 2
End If
Next j
Cells(Target.Row, 19).Value = C
For j = 5 To 14 Step 3
If Cells(Target.Row, j).Value = "x" Then
AM = AM + 4
End If
Next j
If Cells(Target.Row, 17).Value = "x" Then AM = Cells(Target.Row, 20).Value + 3
Cells(Target.Row, 20).Value = AM
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim j%, jours%, cel%, inter%
If Not Intersect(Target, Range("R7:W46")) Is Nothing Then Exit Sub
For j = 3 To 15 Step 3
    If Cells(Target.Row, j).Value = "x" Then
        M = M + 3
    End If
Next j
Cells(Target.Row, 18).Value = M
For j = 4 To 16 Step 3
    If Cells(Target.Row, j).Value = "x" Then
        C = C + 2
    End If
Next j
Cells(Target.Row, 19).Value = C
For j = 5 To 14 Step 3
    If Cells(Target.Row, j).Value = "x" Then
        AM = AM + 4
    End If
Next j
If Cells(Target.Row, 17).Value = "x" Then AM = AM + 3
Cells(Target.Row, 20).Value = AM
'verif pour les jours
jours = 0
For k = 3 To 17 Step 3
    cel = 0
    For j = 0 To 2
        If Cells(Target.Row, k + j).Value = "x" Then
            cel = cel + 1
        End If
    Next j
    If cel = 3 Then jours = jours + 1
Next k
    
If jours > 0 Then
    Cells(Target.Row, 18) = Cells(Target.Row, 18) - 3 * jours
    Cells(Target.Row, 19) = Cells(Target.Row, 19) - 2 * jours
    If Cells(Target.Row, 17).Value = "x" Then
        inter = Cells(Target.Row, 20) - 4 * (jours - 1)
        Cells(Target.Row, 20) = inter - 3
    Else
        Cells(Target.Row, 20) = Cells(Target.Row, 20) - 4 * jours
    End If
End If
Cells(Target.Row, 21).Value = jours
End Sub