Sub RecopieTableaux()
Dim a, c, i&, j&, k&
a = Range("A2:B" & Range("A" & Rows.Count).End(xlUp).Row)
k = Application.Sum(Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row))
ReDim c(1 To k, 1 To 2)
For i = LBound(a, 1) To UBound(a, 1)
If a(i, 1) <> "" Or a(i, 1) <> 0 Then
For k = 1 To a(i, 1)
j = j + 1
c(j, 1) = k: c(j, 2) = a(i, 2)
Next k
End If
Next i
'ici pour changer la localisation du nouveau tableau
Columns("D:E").ClearContents
[D1:E1] = Array("N°", "Classe")
[D2].Resize(UBound(c, 1), UBound(c, 2)) = c
Columns("D:E").AutoFit
End Sub