RESOLU : Calcul automatique à une période précise

Private Sub Workbook_Open()
Dim Cellule As Range

Dim Mois1 As Byte
Dim Annee1 As Integer
Dim offset1 As Byte
offset1 = Int(Asc(Depcol2) - Asc(Datcol2))
' vérification si mois denier ecrit

Mois1 = Month(Date) - 1
Annee1 = Year(Date)
If Mois1 = 1 Then Annee1 = Annee1 - 1' en janvier on calcule pour le mois de décembre
With Sheets(Noms2)
For Each Cellule In .Range(Datcol2 & Datlig2 & ":" & Datcol2 & .Range(Datcol2 & .Rows.Count).End(xlUp).Row)
    
    If CInt(Year(Cellule.Value)) = Annee1 Then
        If CByte(Month(Cellule)) = Mois1 Then
            If Cellule.Offset(0, offset1) = "" Or Cellule.Offset(0, offset1) = 0 Then
                Cellule.Offset(0, offset1) = calcul()
            End If
        End If
    End If
Next Cellule

End With
End Sub
Private Function calcul() As Single
Dim Cellule As Range

With Sheets(Noms1)
For Each Cellule In .Range(Depcol1 & Datlig1 & ":" & Depcol1 & .Range(Depcol1 & .Rows.Count).End(xlUp).Row)

            calcul = CSng(Cellule) + calcul
    
Next Cellule

End With

End Function

If Mois1 = 1 Then Annee1 = Annee1 - 1

If Mois1 = 0 Then
    Annee1 = Annee1 - 1
    Mois1 = 12
End If