[VBA] Probleme emplacement macro

Sub Enregistrer()

    Const Destination = "Destination"
    Const Maitre = "MonFichier.xls"
    
    Dim j As Integer, i As Integer, Feuille As String
    Dim NomFichier As String
    
    j = 1
    Feuille = ActiveSheet.Name
    Worksheets.Add.Name = Destination
    
    Sheets(Feuille).Select
    'boucle dans la feuille activée jusqu'a la derniere ligne
    For i = 0 To (ActiveSheet.Range("A1:A65536").End(xlDown).Row - 1)
        'condition ligne colorée
        'si colorée, on copie la ligne dans la nouvelle feuille
        ' a partir de la premiere ligne
        If ActiveCell.Offset(i, 0).Interior.ColorIndex = 33 Then
            ActiveCell.Offset(i, 0).EntireRow.Copy
            Sheets(Destination).Range("A" & j).PasteSpecial Paste:=xlValues
            j = j + 1 'incrément de j
        End If
    Next i

    Sheets(Destination).Copy
    NomFichier = Application.GetSaveAsFilename(fileFilter:="Classeur Excel (*.xls), *.xls")
    ActiveWorkbook.SaveAs Filename:=NomFichier, FileFormat:=xlWorkbookNormal
    ActiveWorkbook.Close
    Application.DisplayAlerts = False
    Sheets(Destination).Delete
    Application.DisplayAlerts = True

End Sub
'

Sub enregistrer()

    Dim j As Integer

    j = 1

    Set NewSheet = Worksheets.Add
    ' L'instruction [ Worksheets.Add ] a le même effet que
    ' de dire [ ThisNewSheets.Select ]
    For i = 1 To ActiveSheet.Range("A2").End(xlDown).Row
        ' Donc le [ ActiveSheet ] dans la boucle For pointe
        ' sur la nouvelle feuille et non sur la source
        If Rows(i).Interior.ColorIndex = 33 Then
            ' Je n'ai jamais utiliser cette syntaxe et de plus
            ' le compilateur me génère une erreur -> [ Rows(i).Interior.ColorIndex ]
            Rows(i).Copy
            NewSheet.Range("A" & j).PasteSpecial Paste:=xlValues
            j = j + 1
        End If
    Next i

    NewSheet.Copy
    NomFichier = Application.GetSaveAsFilename(fileFilter:="Classeur Excel (*.xls), *.xls")
    ActiveWorkbook.SaveAs Filename:=NomFichier, FileFormat:=xlWorkbookNormal
    ' Lors d'une destruction par VBA il est souhaitable de désactiver
    ' les "popups"  de validation.
    ' Application.DisplayAlerts = False
    NewSheet.Delete

End Sub
'