copie de la feuille est enregistre dans nouveau fichier

Bonjour, même application mais nouvelle possibilité de solution, donc nouveau fils.

j'ai trouver sur le net ce bout de code qui selon moi copie la feuil5 ( bon de commande ) , puis créer un fichier excels , colle le comptenu de le feuil5 et enregiste le fichier:

Sub test()
Dim Chemin As String

Application.ScreenUpdating = False
Chemin = "G:\details des bons de commande\"

With Sheets("Feuil5").Copy

With ActiveWorkbook
.SaveAs Filename:=Chemin & ThisWorkbook.Sheets("Feuil5").Range("C1") & " " & Format(Now, "yy-mm-dd hhmmss")
.Close
End With
end with
End Sub

code que j’essaie d’adapter comme ci-dessous :

Private Sub CommandButton1_Click() ' départ de l'ancien qui fonction trés bien
Dim Lg As Long
Dim tva As Single

With Sheets("Data").Range("A:A")
For n = 2 To .Range("A65536").End(xlUp).Row
t = InStr(Me.Range("G6"), .Cells(n, 1).Value) > 0
If t Then
tva = .Cells(n, 2)
Exit For
End If
Next
End With
With Sheets("Suivi de BL et FACTURE ")
Lg = .Range("B65536").End(xlUp).Row + 1
.Cells(Lg, 2) = Me.Range("G1") ' Date Cde
.Cells(Lg, 3) = Me.Range("G6") ' Fournisseur
.Cells(Lg, 4) = Me.Range("D7") ' Date Livraison
.Cells(Lg, 5) = Me.Range("C1") ' N° Bon de Commande
' .Cells(Lg, 6) = Me.Range("") ' N° BL
' .Cells(Lg, 7) = Me.Range("") ' N° Facture
' .Cells(Lg, 8) = Me.Range("G1") ' Montant HT
' .Cells(Lg, 9) = tva
.Cells(Lg, 12) = Me.Range("E3") ' Statut Livraison
End With
Me.CommandButton1.Visible = True ' fin du code qui fonctionne trés bien

Application.ScreenUpdating = False ' départ du nouveau code
Chemin = "G:\details des bons de commande\"

With Sheets("bon de commande 1").Copy

With ActiveWorkbook
.SaveAs Filename:=Chemin & ThisWorkbook.Sheets("Feuil5").Range("C1") & " " & Format(Now, "yy-mm-dd hhmmss")
.Close
End With
End With

End Sub

je ne doit pas être loin de la solution mais l'erreur " l'indice n'appartient pas a la sélection " apparait , le bouton qui contient le code est sur la feuil5, la ligne indiqué par VBA et : .SaveAs Filename:=Chemin & ThisWorkbook.Sheets("Feuil5").Range("C1") & " " & Format(Now, "yy-mm-dd hhmmss") pourtant le dossier de destination