Merci Bebere de t'être intéréssé à mon problème, j'ai suivi à la lette ce que tu m'as dit...et voilà le code qu'il m'a écrit au début de ma macro..Tout fonctionne bien quand ma Base va de A à M, mais quand je lui insére 1 colonne : Erreur 1004 et en déboguage, il ne trouve plus une colonne qui n'est plus en M mais en N...
Selection.CurrentRegion.Select
ActiveWorkbook.Names.Add Name:='dubost', RefersToR1C1:= _
'=OFFSET(VTPFROID030505DUBOST!R1C1,,,COUNTA(VTPFROID030505DUBOST!C1),COUNTA(VTPFROID030505DUBOST!R1C1:R1C13))'
ActiveWorkbook.Names.Add Name:='dubost', RefersToR1C1:= _
'=OFFSET(VTPFROID030505DUBOST!R1C1,,,COUNTA(VTPFROID030505DUBOST!C1),COUNTA(VTPFROID030505DUBOST!R1C1:R1C13))'
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:='dubost' _
).CreatePivotTable TableDestination:='', TableName:= _
'Tableau croisé dynamique1', DefaultVersion:=xlPivotTableVersion10
Si quelqu'un pouvait me résoudre mon ti problème..Merci