XL 2013 Copier les données d'une feuille sur une feuille dont le nom n'est pas fixé

[vbakr]

Bonjour,

Voici mon problème:

J'aimerais copier coller les données d'une feuille à une autre, en sachant que je ne peux pas savoir à l'avance le nom de cette deuxième

J'ai attaché ci-joint un classeur pour illustrer mon problème.

Il faudrait que les données de la "Feuille Macro" soit copier puis coller sur la feuille "Site 22222" sous les lignes déjà existantes.

Le nom de la feuille "Site 22222" dépend du texte dans les cellules de la colonne I. C'est pourquoi, en fonction de quelle valeur il y est inscrit, la feuille "Site ..." dans laquelle je dois coller mes données change.

Merci d'avance

 

[Staple1600]

Bonjour le fil, vbakr

vbakr
Une proposition de macro (selon ma compréhension de la question)
(histoire de pas laisser le compteur de ta discussion à 0 réponses )

Sub Recopie()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "Feuille macro" Then
If InStr(ws.Name, ws.[I2].Text) > 0 Then
Sheets("Feuille macro").[A1].CurrentRegion.Offset(1).Copy ws.Cells(Rows.Count, 1).End(3)(2)
End If
Application.CutCopyMode = False
End If
Next
End Sub