ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
Sheets('Feuil1').range('A1').currentregion.CreatePivotTable TableDestination:='', TableName:= _
'Tableau croisé dynamique3', DefaultVersion:=xlPivotTableVersion10
With ActiveSheet
.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
.PivotTables('Tableau croisé dynamique3').PivotFields ('non')
.Orientation = xlRowField
.Position = 1
.PivotTables('Tableau croisé dynamique3').AddDataField ActiveSheet. _
PivotTables('Tableau croisé dynamique3').PivotFields('adresse'), _
'Nombre de adresse', xlCount
End With