Deplacer onglet et nommé date (1) puis date(2) etc

[carlos]

Bonjour

Par ce code , je suis limiter à 2 copier deplacer car à la troisieme j'ai un message d'erreur .
Comment faire our qu'a la troisieme il me nomme la feuille 'Date' (3) etc


Sub CopierDeplacerOnglet()

On Error GoTo suite

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets('TabPoule').Select
Sheets('TabPoule').Copy Before:=Sheets(4)
ActiveWorkbook.Sheets(4).Name = Format(Date, 'dd mmm')

Exit Sub
suite:

ActiveWorkbook.Sheets(4).Name = Format(Date, 'dd mmm') & '(2)'

End Sub

Merci