Si j'ai bien compris, ce dont tu as besoin, c'est de savoir combien de données tu as trié pour faire ton TCD.
Dans la positive, fait les 2 modifs écrites ci dessous dans ta macro :
Sub Cumul_annuel_pannes()
'
' Macro9 Macro
' Macro enregistrée le 25/11/2004 par Chrisrian Nouyrigat
'
Application.ScreenUpdating = False
madate = InputBox("Quelle année voullez vous traiter ?", "Somme des pannes machine", "aaaa")
If madate = "" Then Exit Sub
'If madate < 36526 Then
'MsgBox "Date non valide", vbCritical: Exit Sub
'End If
titre_graph = "Cumul temps pannes annuel " & " " & (madate)
nomdate = "" & Format(madate, "mmm") & " " & Format(madate, "yyyy")
Sheets("histogen").Select
Range("a2").Select
Selection.AutoFilter
Selection.AutoFilter Field:=12, Criteria1:=madate
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.Columns("j")).Select
Selection.Copy
Sheets.Add
ActiveSheet.Paste
'/////////////////////////////////////////////////////
'determination du nombre de lignes d'interet
NbLignes = Selection.Rows.Count
'/////////////////////////////////////////////////////
ActiveSheet.Name = "temp"
Sheets.Add
ActiveSheet.Name = "temp1"
Range("A1").Select
Application.CutCopyMode = False
'/////////////////////////////////////////////////////
'intégration de la variable dans la création du TCD
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'temp'!R1C1:R" & NbLignes & "C10").CreatePivotTable TableDestination:="'temp1'!R1C1", TableName:= _
"Tableau croisé dynamique3", DefaultVersion:=xlPivotTableVersion10
'////////////////////////////////////////////////////
......
Cdt
Frédéric