derniéreLigne = Cells(6, 1).End(xlDown).Row
selection1 = "L4C1:" & derniéreLigne & "C11"
Worksheets("Feuil2").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Historique pannes entre 2 dates!" & selection1, Version:=xlPivotTableVersion10).CreatePivotTable TableDestination:="Feuil2!L2C1", TableName:="Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion10
Sheets("Feuil2").Select
Cells(3, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True