comprehension de ce code

[angoul]

Bonjour,
j'ai recuperer un code qui permet de prendre le l'on de ma feuille qui est dans l'onglet et de le mettre dans la cellule D4

Sheets(NomFeuille).Range("D4") = Sheets(NomFeuille).Name

par contre je ne sait pas ou le mettre j'ai deja se code qui me permet de copier des feuilles par rapport a une liste et des modeles.

Sub CopyFeuille()
Dim i&, j&
With Sheets("catégorie fc")
For j = 0 To 1
For i = 1 To .Range("A5000").Offset(0, j).End(xlUp).Row
Sheets(Array("feuille_catégorieM", "feuille_catégorieF")(j)).Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = .Cells(i, 1).Offset(0, j)
Next i
Next j
End With
End Sub
j'ai essayer de le mettre dans le code ci dessus mais sa beug, j'ai essayer aussi de le mettre dans un module, mais sa marche pas.

qui peut m'aider?
Je doit faire quoi? merci de votre aide

 

[néné06]

Re : comprehension de ce code

Bonjour angoul

code placé en this workbook

Salutations
Néné06

 

[angoul]

Re : comprehension de ce code

merci c'est super sympa