Macro nom de l'onglet avec valeur de 2 cellules

Sub valid()
Dim Sht_Name As String
Dim sht As Worksheet
 Application.ScreenUpdating = False
    With Sheets("Horaires")
    
        Sht_Name = Format(.Range("G2"), "mmmm-yyyy") & " " & .Range("C2").Value
          .Cells.Select
        Selection.Copy
    End With
    Set sht = Sheets.Add
 With sht
    With .Cells
      .Select
    ActiveSheet.Paste
    
     .Copy
     .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End With
     .Name = Sht_Name
     
 End With
 With Application
    .CutCopyMode = False
    .ScreenUpdating = True
 End With
End Sub

Sub valid()
Dim h As Object 'déclare la variable h (onglet Horaire)
Dim c As Object 'déclare la variable c (onglet Cible)

Set h = Sheets("Horaires") 'définit l'onglet h
Sheets.Add 'ajoute un oglet
ActiveSheet.Name = CStr(Format(h.Range("C2").Value, "mmmm-yyyy")) & ", " & h.Range("G2").Value 'renomme l'onglet
Set c = ActiveSheet 'définit l'onglet c
h.Cells.Copy c.Range("A1") 'copie les cellule de h et les colle dans A1 de c (avec tous les formats)
c.Cells.Copy 'copie les cellules de c
Application.DisplayAlerts = False 'masque les messages d'alerte Excel
c.Range("A1").PasteSpecial Paste:=xlPasteValues 'colle dans A1 les valeurs
c.Range("A1").Select 'sélectionne A1
Application.CutCopyMode = False 'supprime le clignottement lié au copier
Application.DisplayAlerts = True 'affiche les messages d'alerte Excel
End Sub

Sub valid()
Dim h As Object 'déclare la variable h (onglet Horaire)
Dim c As Object 'déclare la variable c (onglet Cible)

Set h = Sheets("Horaires") 'définit l'onglet h
h.Copy before:=h 'copie l'onglet h (avant lui même)
ActiveSheet.Name = CStr(Format(h.Range("C2").Value, "mmmm-yyyy")) & ", " & h.Range("G2").Value 'renomme l'onglet
Set c = ActiveSheet 'définit l'onglet c
c.Cells.Copy 'copie les cellules de l'onglet c
c.Cells.PasteSpecial Paste:=xlPasteValues 'colle les valeurs
c.Range("A1").Select 'sélectionne A1
Application.CutCopyMode = False 'supprime le clignottement lié au copier
End Sub