Re
J'avais demandé aussi la position !
Ne répondre qu'à une partie des questions fait perdre du temps à tous le monde...
J'ai pris A1, à toi d'adapter.
A placer dans le module ThisWorkbook
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Set WS = ActiveSheet
Selection.Cut
Sheets("Recap").Activate
Range("A1").Select
ActiveSheet.Paste
Application.DisplayAlerts = False
WS.Delete
Application.DisplayAlerts = True
End Sub