Macro recopie incrémentée

Bonjour,
Le soucis est que la macro devra s'appliquer en fonction de la sélection Je ne comprends pas ta question... Peux tu donner un exemple concret de ce que tu souhaites?

En fait l'idée est que je souhaite insérer une ligne et que cette nouvelle ligne comporte les formules des lignes déjà présentes.
La macro que j'ai trouvé :

Range("C9:P9").Select
Selection.AutoFill Destination:=Range("C9:P10"), Type:=xlFillDefault

Fait une recopie incrémentée de ma ligne 9 de la colonne C à P sur la ligne 10 de la colonne C à P.

Or je souhaiterais que cette recopie incrémentée se fasse en fonction de la ligne que j'ai sélectionné. En gros le numéro de ligne (9 dans mon exemple) devient une variable.

Donc en gros j'utilise la macro :

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Pour insérer une ligne et j'aimerais que cette nouvelle ligne possède les formule de la ligne supérieure, par recopie incrémentée ou autre si vous avez d'autres solutions je suis preneur.

Merci.

Alors :
Effectivement, il faut définir une variable qui stocke le n° de ligne insérée :

Dim ligne As Integer
ligne = ActiveCell.Row 'ligne = n° de ligne ou l'on a préalablement 
'sélectionné une cellule
Rows(ligne).Insert Shift:=xlDown 'on insère une ligne
Range(Cells(ligne - 1, 3), Cells(ligne - 1, 16)).Select 'on sélectionne les cellules
'contenant des formules dans la ligne précédente
Selection.AutoFill Destination:=Range(Cells(ligne - 1, 3), Cells(ligne, 16)) 
'on incrémente ces cellules vers le bas
End Sub

Merci j'essaie ca tout de suite.

Cool.
Ça fonctionne. Là ou je galérais c'était pour nommer le numéro de ligne aléatoire mais grâce a toi tout fonctionne.
Merci encore.

Désolé mais j'ai un nouveau petit soucis.
Certaines cellules que j'incrémente sont remplies par des nombres et non des formules.
Comment spécifier que l'incrémentation ne doit pas changer mon 1 et 2 par exemple (un peu comme la touche Ctrl quand on fait un incrémentation manuelle).

J'ai cru comprendre qu'on pouvait le spécifier par un paramètre de Autofill noté ,Type:=
Mais lequel paramètre utiliser?

Merci

Merci en testant j'ai trouvé celui qui me convenait.

Pour info ,Type:=xlFillCopy

Merci encore bonne journée.