Faire la somme en VBA

Bonjour tout le monde,

J'aimerai savoir comment faire la somme de plusieurs cellules en VBA s'il vous plait.

J'ai appliqué et adapté ce code à mon fichier joint mais ça fonctionne partiellement ... alors, là ou j'ai une cellule sur plusieurs ligne, au lieu de faire la somme, il me met la valeur de dernière cellule.

Voici le code et le fichier ci-joint :

Dim k As Integer, DerLig2 As Integer, q As Integer, DerLig3 As Integer
DerLig2 = Sheets("F1").Range("A" & Rows.Count).End(xlUp).Row
DerLig3 = Sheets("F1").Range("D" & Rows.Count).End(xlUp).Row
For k = 2 To DerLig2
  For q = 2 To DerLig3
    Set plage = Sheets("F1").Cells(k, 2)
        resultat = Application.WorksheetFunction.Sum(plage)
            If Sheets("F1").Cells(k, 1) = Sheets("F1").Cells(q, 4) Then
            Sheets("F1").Cells(q, 5) = resultat
        End If
    Next q
Next k

merci d'avance pour votre aide :)

Me

Bonjour Cameleon1881

A part le fait, que je ne comprenne pas pourquoi vous faites ça en VBA

Voici le code

' -------- Pour somme
Dim dLig As Long
With Sheets("F1")
  dLig = .Range("D" & Rows.Count).End(xlUp).Row
  .Range("E2:E" & dLig).FormulaLocal = "=SOMME.SI(A:A;D2;B:B)"
  .Range("E2:E" & dLig).Value = .Range("E2:E" & dLig).Value
End With

A+

Merci Bruno :) ça marche ! résolu