Sub Calcul_CA()
ca = Format(Application.SumIfs([J:J], [B:B], ComboBox1, [H:H], ">=" & date1), "# ##0.00") 'CA année N
ca2 = Format(Application.SumIfs([J:J], [B:B], ComboBox1, [H:H], "<" & date1), "# ##0.00") 'CA N-1
Label3.Caption = ca
Label40.Caption = ca2
End Sub