Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim h&, P As Range, c As Range
If Target.Column > 1 Then Exit Sub
On Error Resume Next
PivotTables(1).PivotFields([A4].Text).PivotItems(Target.Text).ShowDetail = True
If Err Then Exit Sub
On Error GoTo 0
Cancel = True
h = Columns(1).Find("*", Target, xlValues).Row - Target.Row
With Sheets("Temp") 'feuille masquée
Sheets("Modèle").[A:F].Copy .[A1] 'copier-coller
.[C1:D1] = .[C1:D1].Value 'valeurs des dates
.[A3].Resize(h) = Target(1, 2).Resize(h).Value
.[C3].Resize(h, 2) = Target(1, 3).Resize(h, 2).Value
.[A:A].Replace "Total", Target, xlWhole
.Range("A3:A" & .Rows.Count).SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'supprime les lignes vides
Set P = .UsedRange.Resize(, 6)
End With
With Sheets("Résultat")
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
Set c = .Cells(.Rows.Count, 1).End(xlUp)
If c.Row > 1 Then Set c = c(4) '2 lignes vides
P.Copy c 'copier-coller
.Columns("A:F").AutoFit 'ajustement largeurs
.Activate
End With
End Sub