VBA Excel 2016 : erreur 1004 sur création TCD

Bonjour et Bonne année a tous,

Ne trouvant pas d'ou vient mon problème, je viens soumettre a votre expertise.
J'ai réalisé, en 2010, sous Excel 2007, une macro qui me crée automatiquement des Tableaux Croisés Dynamiques.
Jusque la tout fonctionnait bien mais ce matin au moment de générer le premier TCD sur l'onglet de destination, le code s’arrête et indique : Erreur d’exécution '1004' : La référence n'est pas valide.

Le contexte est le suivant : J'ai un premier onglet qui me sert de source et qui se nomme "datas" et un autre onglet qui se nomme "Indicateurs" et qui regroupe les TCD.

Le code qui fonctionnait depuis 2010 est le suivant :

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="datas!R2C1:R" & Range("A65536").End(xlDown).Row _
    & "C19", Version:=xlPivotTableVersion12).CreatePivotTable TableDestination:="Indicateurs!R2C1", TableName:= _
        "TotalHeuresRens", DefaultVersion:=xlPivotTableVersion12
    With ActiveSheet.PivotTables("TotalHeuresRens").PivotFields("Produit")
    For Each PivIt5 In .PivotItems
        PivIt5.Visible = True
    Next
    On Error Resume Next
    For Each PivIt5 In .PivotItems
        If PivIt5.Name <> vark0 Then
            If PivIt5.Name <> vark9 Then
                If PivIt5.Name <> vark10 Then
                    PivIt5.Visible = False
                End If
            End If
        End If
    Next
    End With
    With ActiveSheet.PivotTables("TotalHeuresRens").PivotFields("Produit")
        .Orientation = xlRowField
        .Position = 1
    End With

        ActiveSheet.PivotTables("TotalHeuresRens").AddDataField ActiveSheet. _
        PivotTables("TotalHeuresRens").PivotFields("Temps reel renseigne"), _
        "Somme de Temps reel renseigne", xlSum

et le code qui est maintenant généré par Excel 2016 est le suivant (mais ne fonctionne pas mieux, même message d'erreur)

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="datas!R1C1:R6030C19", Version:=6). _
        CreatePivotTable TableDestination:="Indicateurs!R3C1", TableName:="Tableau croisé dynamique2", DefaultVersion:=6
    Sheets("Feuil1").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("TotalHeuresRens").PivotFields("Produit")
    For Each PivIt5 In .PivotItems
        PivIt5.Visible = True
    Next
    On Error Resume Next
    For Each PivIt5 In .PivotItems
        If PivIt5.Name <> vark0 Then
            If PivIt5.Name <> vark9 Then
                If PivIt5.Name <> vark10 Then
                    PivIt5.Visible = False
                End If
            End If
        End If
    Next
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique2").PivotFields("Temps reel renseigne"), _
        "Somme de Temps reel renseigne", xlSum

Donc la macro s’arrête dès le début de l'un ou l'autre des paragraphes avec le message d'erreur 1004.
Je précise que ce le code de 2010 a parfaitement fonctionné sous Excel 2016 depuis juin jusqu’à la semaine dernière au moins une fois par semaine.
Si vous avez une idée, elle est la bienvenue :)

Merci d'avance