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