ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Feuil1!R1C1:R" & A & "C4" ).CreatePivotTable TableDestination:="", TableName:= _
        "Tableau croisé dynamique1"
   
         
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1" ).SmallGrid = False
     
    ActiveSheet.PivotTables("Tableau croisé dynamique1" ).AddFields RowFields:= _
    W, ColumnFields:=Y, PageFields:=X
     
    ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields(Z). _
        Orientation = xlDataField
 
     
    Charts.Add
     
    ActiveChart.SetSourceData Source:=Sheets("Feuil2" ).Range("A3" )
    ActiveChart.Location Where:=xlLocationAsNewSheet
    Application.CommandBars("PivotTable" ).Visible = False
     
    If F = "nombre" Then
        ActiveChart.PivotLayout.PivotFields("Moyenne " & Z).Function = xlStDevP
        End If