Duplication feuille et incrémentation auto

Bonjour à la communauté Excel Pratique

Je viens vous demander de l'aide après 2 jours à parcourir la toile pour trouver solution mais sans succès

Je n'ai aucune notion de VBA et j'ai besoin juste d'un code pour une petite action toute simple!

je souhaite simplement créer une macro pour dupliquer mon bon de commande et que celui ci s'incrémente automatiquement en M3 (001,002 etc) et que le nom de l'onglet s'incrémente aussi BC 001, BC 002 etc.

j'ai essayé 2solutions mais sans succès.. elles sont en module 1et 2 dans le fichier

module 1: cela me crée 5 feuille, mais je souhaite juste créer des feuilles une à une..

Sub Dupliquer()
Dim i As Integer

For i = 1 To 5
Sheets(i).Copy after:=Sheets(i)
If i < 9 Then
Sheets(i + 1).Range("M3") = Sheets(i + 1).Name
Else
Sheets(i + 1).Name = "0" & (i + 1)
Sheets(i + 1).Range("M3") = Sheets(i + 1).Name
End If
Next i

End Sub

Module 2 : elle eut marché , mais en ressayant j'ai un code erreur 13 j'avais bien une nouvelle feuille, mais quand je créait une seconde j'avais le code erreur 1004 .

Sub DupliquerFeuille()
    Dim Num As Integer
    ['BC 0'!M3] = ['BC 0'!M3] + 1
    ActiveSheet.Copy after:=ActiveSheet
    With ActiveSheet
        .Name = "BC 0" & Num + 1
        .[M3] = Num + 1
    End With
End Sub

Voilà j'espère ne pas trop vous outrer avec mes codes bricolés

Je vous mets en PJ mon fichier. Merci d'avance pour l'aide précieuse !

Lowick

Bonsoir,

Essaye ça :

Sub DupliquerFeuille()
    Sheets(Sheets.Count).Copy after:=ActiveSheet
    Range("M3") = Range("M3") + 1
    ActiveSheet.Name = "BC " & Format(Range("M3"), "000")
End Sub

Bonjour Raja

je viens de tester et c'est exactement ce qu'il me fallait !

Un grand merci pour ton aide !