Somme de cellules dans 2 feuilles différentes

Bonjour à tous !

Je suis toute nouvelle en VBA, et sur le forum...

Je suis face à une problèmatique que je n'arrive pas à résoudre malgré mes recherches.

Voici le contexte : J'ai deux feuilles de calcul dans un même classeur, appelons les Feuil1 et Feuil2.
Dans Feuil1, j'ai un tableau à deux colonnes, l'une qui donne les quantités de produits commandés, une autre qui donne la date à laquelle elles ont été livrées.
Dans ma Feuil2, j'ai un autre tableau dans lequel je dois rentrer la somme des produits qui ont été livrés entre deux dates.

Malheureusement, le code que j'ai fait à l'air de compiler, mais il ne renvoit aucune valeur dans la cellule demandée, et je n'arrive toujours pas à trouver mon erreur...

Voici le code :

Private Sub D1_PromiseDate_Click()
Dim NumLig As Integer

With Worksheets("LG Data")

    Dim MaDate As Date
        MaDate = Range("J" & NumLig).Value
    Dim tempPromDate As Integer
    
    tempPromDate = Range("J" & Rows.Count).End(xlUp).Row
    
    For NumLig = 1 To tempPromDate
       
        If MaDate >= DateSerial(Year(Date), Month(Date) - 6, Day(Date)) And MaDate <= DateSerial(Year(Date), Month(Date), Day(Date)) Then
            Application.Worksheets("OTD LG").Range("C3").Formula = Application.WorksheetFunction.Sum(Range("E" & NumLig).Value)
        End If
    
    Next NumLig
    
    For NumLig = 1 To tempPromDate
        
        If MaDate >= DateSerial(Year(Date), Month(Date) - 7, Day(Date)) And MaDate <= DateSerial(Year(Date), Month(Date) - 1, Day(Date)) Then
            If Application.Worksheets("OTD LG").Range("C4").Value = "" Then
                Application.Worksheets("OTD LG").Range("C4").Formula = Application.WorksheetFunction.Sum(Range("E" & NumLig).Value)
            End If
        End If
        
    Next NumLig

End With

End Sub

Si quelqu'un voit une erreur que je n'aurais pas remarqué dans mon code, ou pense que ce n'est pas comme ça qu'il faut faire, je suis preneuse :$

Je vous remercie de votre aide.