"Type Mismatch" error message

[bart23]

Hi All,
I face a "Type Mismatch" error with the code below,


ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
Sheets("DONNEES").Range("A1").CurrentRegion, Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="Sheet1!R1C1", TableName:="PivotTable1", DefaultVersion _
:=xlPivotTableVersion10

Can please someone give help ,
Regards,