Bonsoir
On peut faire par formules en nommant les champs représentés par des formules utilisant décaler..
et on peut aussi utiliser VBA.
Sur ce fichier, Code de Feuille Montant
Ce code masque les lignes autres que les 5 dernières
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("G1")) Is Nothing Then
Range("C4", [c4].End(xlDown).Offset(-5, 0)).EntireRow.Hidden = True
Sheets("Graphique").Activate
End If
End Sub
Et celui-ci les re-affiche lorsqu'on revient sur la Feuille.
Private Sub Worksheet_Activate()
Range("C4", [c4].End(xlDown).Offset(-5, 0)).EntireRow.Hidden = False
Range("D3").Select
End Sub
Cordialement