Excel 2016/2013 crashes running SaveAs method 2 times

I'd like to create several new workbooks. The VBA code below runs fine with Excel 365 and 2010. BUT with Excel 2013 or 2016, it runs fine the first time (and create the files)... and on the second run, Excel crashes without any error message.

If I run it step by step, I see that it's the SaveAs line that causes the crash.

I tried to kill the file before saving, too. To use a timer...

I tried to repair Office, to rename a HKEY (Identities), I tried to run it on 2 different windows (7 or 10). Nothing helps :/

Sub ExtraireType()
Dim shVentes As Worksheet
Dim rngVentes As Range
Dim rngTypes As Range
Dim shNew As Worksheet
Dim wkbNew As Workbook
Dim strPath As String
Dim zaza As Range

Application.DisplayAlerts = False
Set shVentes = ThisWorkbook.Worksheets("Ventes")
Set rngVentes = shVentes.Range("A1").CurrentRegion
Set rngTypes = ThisWorkbook.Worksheets("Liste").Range("A2:A4")
strPath = ThisWorkbook.Path

For Each zaza In rngTypes
    rngVentes.AutoFilter
    rngVentes.AutoFilter field:=3, Criteria1:=zaza.Value
    rngVentes.Copy
    Set shNew = ThisWorkbook.Worksheets.Add
    shNew.Paste
    Application.CutCopyMode = False
    shNew.Move
    Set wkbNew = ActiveWorkbook
    wkbNew.SaveAs strPath & "\Type"& zaza.Value & Format(Date, "yyyymmdd")
    wkbNew.Close
    Set shNew = Nothing
    Set wkbNew = Nothing
Next zaza

Set rngVentes = Nothing
Set shVentes = Nothing
Set rngTypes = Nothing
Application.DisplayAlerts = False
End Sub

This code runs well with Excel 2010 or 2019/365. But I have to use it with 2013 or 2016 :(

What am I doing wrong? Thanks for any help !