Macro excel avec insertion de lignes

Tout d'abord merci beaucoup pour votre réponse.

En fait mon tableau répertorie les fiches d'un livres de 1 à 188 .En face de cette série, correspond le nom d'une fiche. Le problème est que sur ce fichier on peut ou non insérer des fiches ou en enlever. voici le code :

Sub Macro2()
'
' Macro2 Macro
'

'
Range("B7").Select
Selection.AutoFill Destination:=Range("B7:B75"), Type:=xlFillSeries
Range("B7:B75").Select
End Sub

Merci encore de votre aide.

Bien à vous

PS : Le problème étant que la macro ne s'affecte que sur un nombre de lignes précises. Or quand j'insère une ligne supplémentaire et que j'affecte ma macro, elle ne fonctionne plus.

je peux vous proposer ça

Sub Macro2()
'
' Macro2 Macro
'

'
Range("B7").Select

Dim myRange As Range

Set myRange = Range(Selection, Selection.End(xlDown))
myRange.Select
End Sub

ça doit convenir à votre besoin

Merci beaucoup !!! :) je vais essayer cela ce week-end et je vous tiens au courant.
Encore mille mercis!

Bonjour,

J'ai essayer la macro que vous m'avez donnée mais aucunes valeurs ne s'affichent dans ma colonne numéro de fiches. J'ai pourtant copier/coller votre code dans l'éditeur VB d'excel.

Mon fichier a cette forme :

Numéro de fiche Nom de la fiche
1 Taratata
2 bla bla

Je souhaiterai que lorsque j'insère une ligne entre la fiche 1 et la fiche 2, je puisse à l'aide d'une manière automatiser, ré incrémenter ma série qui passera alors de 2 à 3.Et ce jusqu'à plus de 300 fiches.

Si vous pouvez m'aider.

Bien cordialement et encore merci de vos précédents réponses.