Copier un feuille vers un nouveau classeur selon condition

bonsoir
je cherche enfin quelqu’un qui m'aide a contrôler et corriger cette procédure :
Dim dlg As FileDialog
Dim i As Integer
ActiveSheet.Copy after:=Sheets(Sheets.Count)
[c7].Value = [c7].Value + 1
[A843].Value = [C843].Value
test = Application.Proper(Format(Range("e779"), "mmm-yyyy"))
ActiveSheet.Name = test
Range("c7").Select
If [c7].Value = 12 Then
ActiveSheet.Copy
' proposer l'enregistrement du nouveau classeur
Set dlg = Application.FileDialog(msoFileDialogSaveAs)
With dlg
' nom du fichier
.InitialFileName = ThisWorkbook.Path & "\" & "TVA " & [A6].Value + 1
' filtrer sur l'extension *.xls
For i = 1 To .Filters.Count
If .Filters(i).Extensions = "*.xls" Then
.FilterIndex = i
Exit For
End If
Next i
If .Show <> 0 Then
'Enregistrer le classeur
On Error Resume Next
Application.DisplayAlerts = False
.Execute
Application.DisplayAlerts = True
On Error GoTo 0
End If
End With
End If
je m"explique
cette procédure est affecter a un bouton (mois suivant), a chaque fois en cliquant , faire une copie de la feuille active jusqu’à atteindre la condition de la valeur de la cellule C7 sera égal 12 alors un nouveau classeur sera créer dont une copie de la dernière feuille
merci pour votre compréhension.