Sub repart2()
Dim NbLig As Integer
Dim NbRep As Integer
Dim NbRep2 As Integer
Dim NbLoop As Integer
Dim NbCol As Integer
Dim T()
Worksheets("test").Activate
NbLig = Application.CountA(Range("A1:A65536"))
NbLoop = 0
NbRep = 0
NbRep2 = 0
NbCol = -1
ReDim T(NbLig - 1, NbLig - 1)
For i = 1 To NbLig
NbRep = Application.CountA(Range("E1:E65536"))
NbRep2 = Application.CountA(Range("F1:F65536"))
T(i - 1, 0) = Range("A" & i).Value
T(i - 1, 1) = Range("B" & i).Value
T(i - 1, 2) = Range("C" & i).Value
Cells(5 + NbRep, 5) = T(i - 1, 0)
Cells(5 + NbRep2, 6) = T(i - 1, 1)
NbLoop = 0
NbCol = NbCol + 1
Do While Not NbLoop = T(i - 1, 2)
Cells(5 + NbRep, 5) = T(i - 1, 0)
Cells(5 + NbRep2, 6) = T(i - 1, 1)
NbLoop = NbLoop + 1
NbRep = Application.CountA(Range("E1:E65536"))
NbRep2 = Application.CountA(Range("F1:F65536"))
Loop
Next i
End Sub