XL 2019 Aide macro avec un choix de deux modèles

Sub NouvelleFiche()
Application.ScreenUpdating = False
With ActiveSheet
    fin = .Range("B" & .Rows.Count).End(xlUp).Row
    For i = 4 To fin
        Worksheets(LCase(.Range("D" & i))).Copy after:=Worksheets(ThisWorkbook.Sheets.Count)
        Worksheets(ThisWorkbook.Sheets.Count).Name = .Range("C" & i)
    Next i
End With
Application.ScreenUpdating = True
End Sub

Sub NouvelleFiche()
Application.ScreenUpdating = False
With ActiveSheet
    fin = .Range("B" & .Rows.Count).End(xlUp).Row
    For i = 4 To fin
        If Not FeuilleExiste(LCase(.Range("D" & i))) Then
            Worksheets(LCase(.Range("D" & i))).Copy after:=Worksheets(ThisWorkbook.Sheets.Count)
            Worksheets(ThisWorkbook.Sheets.Count).Name = .Range("C" & i)
        End If
    Next i
End With
Application.ScreenUpdating = True
End Sub

Function FeuilleExiste(NomFeuille As String) As Boolean
FeuilleExiste = False
For Each ws In ActiveWorkbook.Sheets
    If ws.Name = NomFeuille Then
        FeuilleExiste = True
        Exit For
    End If
Next ws
End Function

=SI(INDIRECT(C4&"!E5")="INAPTE";"ECHEC SECURITE";SI(INDIRECT(C4&"!E5")>=15;"APTE";"INAPTE"))