If target.Column > 7 And target.Column < 40 Then
Application.EnableEvents = 0
If Cells(target.Row, 7) <> "oui" Then
Cells(target.Row, 40) = 0
ElseIf Cells(target.Row, 2) = "Chantier" Then
If Cells(target.Row, 3) <> "Tâches_générales_réparties" And Cells(target.Row, 3) <> "Tâches_S.A.A._réparties" And Cells(target.Row, 3) <> "Tâches_Prod_réparties" Then
If Cells(target.Row, 4) <> "Suivi - 1" And Cells(target.Row, 4) <> "Achat - 5" Then
Cells(target.Row, 40) = Cells(target.Row, 39).Value + (Range("AR370") * (Cells(target.Row, 39) / Range("AR371")))
ElseIf Cells(target.Row, 4) = "Suivi - 1" Then
Cells(target.Row, 40) = Cells(target.Row, 39).Value + (Range("AR367") * (Cells(target.Row, 39) / Range("AR368"))) + (Range("AR370") * (Cells(target.Row, 39) / Range("AR371")))
ElseIf Cells(target.Row, 4) = "Achat - 5" Then
Cells(target.Row, 40) = Cells(target.Row, 39).Value + (Range("AR366") * (Cells(target.Row, 39) / Range("AR369"))) + (Range("AR370") * (Cells(target.Row, 39) / Range("AR371")))
End If
End If
ElseIf Cells(target.Row, 2) = "Bureau_de_dessin" Then
If Cells(target.Row, 3) <> "Tâches_Bureau_de_dessin_réparties" Then
Cells(target.Row, 40) = Cells(target.Row, 39).Value + (Range("AR372") * (Cells(target.Row, 39) / Range("AR373")))
End If
ElseIf Cells(target.Row, 2) = "Promotion" Then
If Cells(target.Row, 3) <> "Tâches_promo_réparties" Then
Cells(target.Row, 40) = Cells(target.Row, 39).Value + (Range("AR374") * (Cells(target.Row, 39) / Range("AR375")))
End If
ElseIf Cells(target.Row, 2) = "Soumission" Then
If Cells(target.Row, 3) <> "Tâches_soum_réparties" Then
Cells(target.Row, 40) = Cells(target.Row, 39).Value + (Range("AR376") * (Cells(target.Row, 39) / Range("AR377")))
Else
Cells(target.Row, 40) = Cells(target.Row, 39).Value + 0
End If
End If
Application.EnableEvents = 1
End If