Formule ou macro

Merci de ta réponse j'ai 200 feuilles à créer et éditer je voulais que ce soit automatiser pour faire autre chose entre temps pour la macro j'ai compris mais pas pour la numérotation de 1 a 200 !
Cordialement

Bonjour,

Désolé pour le retard , regarde cette macro , je te conseille de la tester avant de l'appliquer à ton fichier. N'ayant pas connaissance de ton fichier de base, il faudra obligatoirement adapter. Pour vérifier que le copier/coller s'effectue correctement , une cellule (autre que la D1) devra être non vide avant d'utiliser la macro.

Sub Creer200feuilles()
'
' Creer200feuilles Macro
'


    If ActiveSheet.Name <> "01-2016" Then
        ActiveSheet.Name = "01-2016"
    End If
    
    For i = 2 To 200
        Sheets("01-2016").Select
        Cells.Select
        Range("B8").Activate
        Selection.Copy
        Sheets.Add
        If i < 10 Then
            ActiveSheet.Name = "0" & i & "-2016"
            ActiveSheet.Paste
            Range("D1") = "0" & i & "-2016"
        Else
            ActiveSheet.Name = i & "-2016"
            ActiveSheet.Paste
            Range("D1") = i & "-2016"
        End If
    Next i
End Sub

Cordialement,
Fahora