création de TCD

Bonjour,
je suis débutant en VBA j'enregistre donc mes manip avec l'assistant enregistrement macro.
j'ai un problème pour la création d'un tableau croisé dynamique quand je le crée pendant l'enregistrement tout se passe bien.
Par contre quand je tente de le creer par la macro enregistrée j'ai droit à une erreur d'execussion 5 argument ou appel de procédure incorrect

extrait de mon code:

Range("F2").Select
ActiveWorkbook.Names.Add Name:="MVSEM", RefersToR1C1:= _
"=OFFSET(MV!R4C1,0,0,COUNTA(MV!C1),21)"

Sheets("MV").Select
Sheets.Add
ActiveSheet.Select
ActiveSheet.Name = "tdc"
Range("a1").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"MVSEM", Version:=xlPivotTableVersion10).CreatePivotTable TableDestination _
:="tdc!L1C1", TableName:="Tableau croisé dynamique1", DefaultVersion:= _
xlPivotTableVersion10
Sheets("tdc").Select
Cells(1, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
Range("G13").Select

Si quelqu'un peux me dire ce qui ne va pas ce serait sympas.
merci d'avance. 🙂