XL 2013 Répéter des cellules en fonction d'une valeur

Sub deployer()
Dim tablo, Nbr&, res(), j&, i&, n&

  Sheets("Feuil1").Activate
  tablo = Range("b2:b3").Resize(, Cells(2, Columns.Count).End(xlToLeft).Column - 1)
  For j = 1 To UBound(tablo, 2): Nbr = Nbr + tablo(2, j): Next
  ReDim res(1 To Nbr, 1 To 1)
  For j = UBound(tablo, 2) To 1 Step -1
    If tablo(2, j) > 0 Then
      For i = 1 To tablo(2, j)
        n = n + 1
        res(n, 1) = tablo(1, j)
      Next i
    End If
  Next j
  Range("b7") = "xxx"
  Range(Range("b7"), Cells(Rows.Count, "b").End(xlUp)).Clear
  Range("b7").Resize(Nbr) = res
End Sub