Code macro multiplicatrice

Bonjour,

j'ai trouvé un code macro sur le net qui permet de démultiplier les lignes en fonction d'un nombre.
Je l'ai un peu bidouillé mais je bloque sur un point.je n'arrive pas a la modifier de façon a ce qu'elle me démultiplie plus de11 colonnes...

pouvez vous la regarder et me dire ce qu'il faut rajouter.

Sub Copie()

1: Dim k As Integer, m As Long, Derlign As Long, Nbre As Integer

2: Application.ScreenUpdating = False
3: For m = 2 To Range("A65536").End(xlUp).Row
4: Derlign = Sheets("pondération surface").Range("A65536").End(xlUp).Row
5: Nbre = Range("D" & m)
6: Range("A" & m & ":k" & m).Copy Sheets("pondération surface").Range("A" & Derlign + 1 & ":k" & Derlign + 1 + Nbre - 1)
7: For k = 1 To Nbre
8: Sheets("pondération surface").Range("D" & Derlign + 1) = k
9: Derlign = Derlign + 1
10: Next k
11: Next m
12: Application.ScreenUpdating = True

End Sub


merci par avance de votre aide.