Run-time Error '1004' Pivotfield name is not valid

Hello everybody,

I'm quiet but not really a beginner in VBA and today i went on an error which it seems, i can t solve alone. So i'm asking your help there. I'm doing a project consisting in "variance" analysis on several excel tables and everything worked fine till i get to the end but today, i just update the different tables and now get this error 1004 saying :

"Run-time error '1004': The Pivot Table field name is not valid. To create a Pivot Table report, you must use data that is organized as a list with labeled columns. If you are changing the name of the Pivot Table field, you must type a new name for the field."

As in my different tables I don t see any difference on the first row and not any blank i wonder from where it could be coming.

Here a part of my code may be someone will see what is wrong here. (It worked fine till today!)

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer

Sub Generer_TCD_FC()

Sheets("Sales Plan vs Prod Plan").Cells(1, 46) = "QuantiteM"
Sheets("Sales Plan vs Prod Plan").Cells(1, 47) = "DescriptionM"
Dim aCache As Object


'Application.ScreenUpdating = False

Application.DisplayAlerts = False
Worksheets("TCD FC").Delete
Application.DisplayAlerts = True
Sheets("Donnees cables").Select
Sheets.Add
ActiveSheet.name = "TCD FC"
ActiveWorkbook.RefreshAll



Sheets("TCD FC").Select

   Set aCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Sales Plan vs Prod Plan!R1C1:R1048576C48", Version:=xlPivotTableVersion14)
    
    aCache.CreatePivotTable TableDestination:=Worksheets("TCD FC").Range("A1"), TableName:="PivotTable11", DefaultVersion:=xlPivotTableVersion14

The error occurs on the last line.

Please someone help me!