Macro Sous Total

Bonjour à tous,

J'ai besoin de votre aide pour une macro, je ne sais pas comment m'y prendre.

J'ai une colonne D qui m'affiche plusieurs fois le même montant ce qui est normal mais je souhaiterais créee qui me supprime ce montant dans tout les lignes et affiche ce montant dans la ligne du sous total du code.

Ci-joint un exemple de Excel, le premier onglet correspond à ce que j'ai actuellement et le deuxieme à ce que ej voudrais.

Merci

Bonjour Paris7501

Voici une possibilité de code

Sub Totaux()
  Dim dLig As Long, Lig As Long
  Dim Montant As Single
  Lig = 2: Montant = 0
  With ActiveSheet
    dLig = .Range("A" & Rows.Count).End(xlUp).Row
    Do While Lig <= dLig
      If InStr(1, .Range("A" & Lig), "Total") > 0 Then
        .Range("D" & Lig).Value = Montant
        Montant = 0
      ElseIf Montant = 0 Then
        Montant = .Range("D" & Lig).Value
        .Range("D" & Lig).ClearContents
      Else
        .Range("D" & Lig).ClearContents
      End If
      Lig = Lig + 1
    Loop
  End With
End Sub

A+

Merci beaucoup

Re

En plus un petit clic sur ^ (en bas à droite) fait toujours plaisir