Sub essai_zone()
der_li = Sheets('feuil1').Range('a65536').End(xlUp).Row
'dernière ligne de la colonne A de la feuille 1
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
Feuil1!R1C1:R & der_li & 'C12').CreatePivotTable TableDestination:='', TableName:= _
Tableau croisé dynamique3, DefaultVersion:=xlPivotTableVersion10
End Sub