copie ( x fois ) d'une forme vers une autre feuill1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$11" And Target <> 0 Then
With Sheets("feuil2")
    .Range("A3:C9").Copy
    Do
        compteur = compteur + 8
        .Range("A" & (compteur + 3)).PasteSpecial Paste:=xlFormats
        x = x + 1
    Loop Until x = Target
End With
End If
Application.CutCopyMode = False

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim compteur As Integer, x As Integer
Application.ScreenUpdating = False
With Sheets("feuil2")
    .Range("A10:C65000").Clear
    If Target.Address = "$C$11" And Target > 1 Then
        .Range("A3:C9").Copy
        Do
            compteur = compteur + 8
            x = x + 1
            .Range("A" & (compteur + 3)).PasteSpecial Paste:=xlFormats
            .Range("A" & (compteur + 3)) = x + 1
        Loop Until x = Target - 1
    End If
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub