Problème de validation dans macro

Bonjour le forum,

J'ai une macro qui met en rouge le montant total qui suit un texte dans une cellule, et mon problème c'est que quand je change ou met un nouveau montant dans la colonne je suis obligé de cliquer sur une autre cellule pour que le montant total se mette à jour.

J'ai essayé en mettant Worksheet_SelectionChange mais le résultat est le même

N'y aurait-il pas un moyen pour que le total se mette automatiquement à jour une fois que l'on a validé un montant ?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Columns(3)) Is Nothing Then
  With Range("D19")
    .FormulaR1C1 = "=SUM(R[-15]C:R[-2]C)"
    .NumberFormat = "# ### ##0.00 $"
    .Value = "Montant à payer : " & Range("D19").Text
    .Characters(Start:=18, Length:=Len([D19]) - 17).Font.ColorIndex = 3
    .Characters(Start:=18, Length:=Len([D19]) - 17).Font.Bold = True
  End With
End If
Application.ScreenUpdating = True
End Sub

d'avance merci pour votre aide.

ci-joint fichier

Bonjour

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D4:D17")) Is Nothing Then
Application.ScreenUpdating = False
  With Range("D19")
    .FormulaR1C1 = "=SUM(R[-15]C:R[-2]C)"
    .NumberFormat = "# ### ##0.00 €"
    .Value = "Montant à payer : " & Range("D19").Text
      .Characters(Start:=18, Length:=Len([D19]) - 17).Font.ColorIndex = 3: .Font.Bold = True
  End With
End If
End Sub

Cordialement

Bonjour Amadéus,

Merci beaucoup pour ta réponse