Macro - insérer une ligne sur plusieurs feuilles

Bonjour,

J'ai une macro qui me permet d’insérer une nouvelle ligne dans ma feuille (ça copie un texte à l'endroit ou est mon curseur) :

Sub Inserer_nouvelle_notion()

Dim x As String

    x = ActiveCell.Address

    Range(x).Select

    ActiveCell.EntireRow.Insert Shift:=xlDown

    Range("K5:M5").Select

    Selection.Copy

    Range(x).Select

    ActiveCell.PasteSpecial

    ActiveCell.EntireRow.Insert Shift:=xlDown

End Sub

Je souhaiterai savoir s'il était possible de le faire sur plusieurs feuilles automatiquement sachant que toutes les feuilles sont identiques mais je n'ai pas un nombre de feuilles définies. Par exemple dire de le faire sur feuille +1 +2 +3 +4 +5 et ça s'arrête ou bloque (même s'il a un message d'erreur c'est pas grave) jusqu'à ce qu'il n'y ai plus de feuilles.

Merci d'avance pour votre aide

Des idées ?