Private Sub UserForm_Initialize()
With Sheets("Feuil1")
Cells(5, 3).FormulaR1C1 = "=R[-2]C+SUMPRODUCT((Tableau1[OK]=R1C1)*(Tableau1[B]=RC[-1])*Tableau1[G])-SUMPRODUCT((Tableau1[OK]=R1C1)*(Tableau1[B]=RC[-1])*Tableau1[H])"
Cells(5, 4).FormulaR1C1 = "=R[-2]C[-1]+SUMPRODUCT((Tableau1[B]=RC[-2])*Tableau1[G])-SUMPRODUCT((Tableau1[B]=RC[-2])*Tableau1[H])"
Cells(6, 3).FormulaR1C1 = "=R[-1]C+SUMPRODUCT((Tableau1[OK]=R1C1)*(Tableau1[B]=RC[-1])*Tableau1[G])-SUMPRODUCT((Tableau1[OK]=R1C1)*(Tableau1[B]=RC[-1])*Tableau1[H])"
Cells(6, 4).FormulaR1C1 = "=R[-1]C+SUMPRODUCT((Tableau1[B]=RC[-2])*Tableau1[G])-SUMPRODUCT((Tableau1[B]=RC[-2])*Tableau1[H])"
Cells(7, 3).FormulaR1C1 = "=R[-1]C+SUMPRODUCT((Tableau1[OK]=R1C1)*(Tableau1[B]=RC[-1])*Tableau1[G])-SUMPRODUCT((Tableau1[OK]=R1C1)*(Tableau1[B]=RC[-1])*Tableau1[H])"
Cells(7, 4).FormulaR1C1 = "=R[-1]C+SUMPRODUCT((Tableau1[B]=RC[-2])*Tableau1[G])-SUMPRODUCT((Tableau1[B]=RC[-2])*Tableau1[H])"
Cells(8, 3).FormulaR1C1 = "=R[-1]C+SUMPRODUCT((Tableau1[OK]=R1C1)*(Tableau1[B]=RC[-1])*Tableau1[G])-SUMPRODUCT((Tableau1[OK]=R1C1)*(Tableau1[B]=RC[-1])*Tableau1[H])"
Cells(8, 4).FormulaR1C1 = "=R[-1]C+SUMPRODUCT((Tableau1[B]=RC[-2])*Tableau1[G])-SUMPRODUCT((Tableau1[B]=RC[-2])*Tableau1[H])"
Cells(9, 3).FormulaR1C1 = "=R[-1]C+SUMPRODUCT((Tableau1[OK]=R1C1)*(Tableau1[B]=RC[-1])*Tableau1[G])-SUMPRODUCT((Tableau1[OK]=R1C1)*(Tableau1[B]=RC[-1])*Tableau1[H])"
Cells(9, 4).FormulaR1C1 = "=R[-1]C+SUMPRODUCT((Tableau1[B]=RC[-2])*Tableau1[G])-SUMPRODUCT((Tableau1[B]=RC[-2])*Tableau1[H])"
'Tu désactive le code ci-dessous si tu veux voir les Formules
Range(Cells(5, 3), Cells(9, 4)).Value = Range(Cells(5, 3), Cells(9, 4)).Value
End With
With ListView1
With .ColumnHeaders '365
.Clear
.Add , , "Nombre", 55
End With
.View = lvwReport
.FullRowSelect = True
.Gridlines = True
End With
Remplir_ListView1 (M)
End Sub