Bonjour à tous

Je souhaiterai copier la première ligne d'un fichier base et la coller sur la 2ème ligne d'une feuille d'un fichier fermé et l'enregistrer sous. mais je n'y arrive pas. en gras j'ai le message l'indice n'appartient pas à la sélection.

Merci d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub copier ()
Rows("1:1").Select
    Selection.Copy
    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal
    Windows("Entretien.xls").Sheets("Recueil données").Select 'le fichier fermé
    Rows("2:2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub Enregitrer_Nom()
'
Dim chemin As String, name As String
chemin = "T:\TRAVAUX \"
nom = Range("c7").Value & ".xls"
 
    ChDir "T:\TRAVAUX "
    ThisWorkbook.SaveAs chemin & nom, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub