Sub MonTableauX()
'
' MonTableauX Macro
'
Dim DernierNom, ZoneBase
'
Range("C2").Select
DernierNom = Range("C3").End(xlDown).Offset(0, 1).Row
ZoneBase = "R1C1:R" & DernierNom & "C7"
MsgBox ZoneBase
Sheets.Add.Name = "TableauX"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Statistiques!" & ZoneBase, Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Tableaux!R3C1", TableName:="MonTableau", _
DefaultVersion:=xlPivotTableVersion12
Sheets("Tableaux").Select
Cells(3, 1).Select
ActiveSheet.PivotTables("MonTableau").AddDataField ActiveSheet. _
PivotTables("MonTableau").PivotFields("Ville"), _
"Nombre de Ville", xlCount
With ActiveSheet.PivotTables("Montableau").PivotFields("Ville")
.Orientation = xlRowField
.Position = 1
End With
Range("C3").Select
End Sub