Bonjour tous.
Zapsalis ; beau code mais ton nouvel onglet est vide. La demande est une copie de l'onglet TTC.
Sub MacroCOPIE()
Dim derligne As Long
Dim newfeuille As String
derligne = Range("A65536").End(xlUp).Row
newfeuille = Range("A" & derligne).Value
Sheets("TTC").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = newfeuille
End Sub