Macro pour insertion de cellules copiées

Bonjour à tous,

J'aimerai créer une macro permettant d'insérer des cellules copiées sur une ligne précise, tout en variant le nombre de fois où l'opération va se répéter.

Mon cas précis est le suivant :

J'aimerai créer une macro permettant de copier les lignes 1 à 16 (zone grisée), puis d'insérer celles-cien ligne 77, 137, 197 et ainsi de suite (toutes les 60 lignes à partir de la ligne 77).

En revanche, cette opération sera effectuée le même nombre de fois que la valeur du nombre indiqué en N18.

Par exemple, si N18 affiche "2", les cellules copiées seront insérées en ligne 77 et 137.

Si N18 affiche "5", les cellules copiées seront insérées en lignes 77, 137, 197, 257, 317.

Et ainsi de suite…

NOTA : Les cellules copiées ne doivent pas être collées mais insérées, du contenu sera ajouté dans les cellules vides.

Les explications sont dans le fichier joint ci-dessous, posez-moi vos questions si je n'ai pas été assez explicite.

Merci pour votre aide !

Bonjour,

Option Explicit
Sub Copier()
Dim i As Integer
    Application.ScreenUpdating = False
    With Worksheets("Feuil1")
        If .Range("N18") > 0 Then
            For i = 0 To .Range("N18") - 1
                .Rows("1:16").Copy
                .Range("A77").Offset(60 * i).EntireRow.Insert Shift:=xlShiftDown
            Next i
        End If
        Application.CutCopyMode = False
    End With
End Sub

A+

Bonjour

Bonjour frangy

A vérifier

Merci à tous les deux, les deux codes fonctionnent parfaitement !

Merci pour votre aide