Private Sub UserForm_Initialize()
Dim Soustotal As Currency
Soustotal = 0
With Feuil1
tbl = .ListObjects("Tableau1").DataBodyRange
End With
Mois = Month(DateSerial(2020, 2, 1)) 'Ici le mois en cours pour test
For l = 1 To UBound(tbl, 1)
If tbl(l, 66) <> Empty Then
If Month(CDate(tbl(l, 12))) = Mois Then
Soustotal = Soustotal + CCur(tbl(l, 31))
End If
End If
Next l
Me.CA_Réalisé.Text = Format(Soustotal, "### ##0.00")
End Sub