VBA copier feuille sur une autre

Ouah la je commence a devenir fou ça m'enerve.

Est ce que quelqu'un pourrait me dire comment copier une feuille qui se trouve dans le fichier "Gestion BRC onglet RT-C" Sur un autre classeur ouvert qui comporte déjà un onglet RT-C?

Sub A()

'Ouvre modèle Facturation Lot (Modèle)

Set nouveau_claseur = Workbooks.Add("Traitement Cicm\Facturation Lot (Modèle).xltx")

Windows("Gestion BRC.xlsm").Activate

Sheets("RT-C").Select

Sheets("RT-C").Copy

Workbooks("Facturation Lot (Modèle)1").Activate

Sheets("RT-C").Select

Cells.Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

'Active Classeur Gestion BRC et séléctionne BORD fin de lot

Windows("Gestion BRC.xlsm").Activate

Sheets("BORD fin de lot").Select

'Séléctionne le classeur Modèle et l'enregistre au bon endroit avec une variable en B6

Workbooks("Facturation Lot (Modèle)1").SaveAs (ThisWorkbook.Path & "\" & "Facturation Lot" & "\" & "Facturation lot " & [B6].Value & " Nancy CICM - Oti France" & " " & " - " & Format(Date, "yyyy") & ".xls")

'Ferme et enregistrer le nouveau fichier

Workbooks("Facturation lot " & [B6].Value & " Nancy CICM - Oti France" & " " & " - " & Format(Date, "yyyy") & ".xls").Close

End Sub

Voila la formule, je ne peux pas mettre le fichier car il y a des données Porfessionnelle et lorsque je ne donne qu'une partie de mon fichier pour de l'aide ça ne marche pas sur le fichier

Merci

Bonjour Fiorina,

voici un exemple:

Sub test()
Dim wk1 As Workbook, wk2 As Workbook, sh
Set wk1 = Workbooks("Gestion BRC.xlsm")
Set wk2 = Workbooks("Facturation Lot (Modèle)1")
Set sh = Sheets("RT-C")
    wk1.sh.Copy After:=wk2.Sheets(sh.Name)
End Sub