Bonjour,
en vba :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lig As Long
If Target.Row < 6 Or Target.Row > 7 Or Target.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Rows.Hidden = False
If Target.Interior.ColorIndex <> xlNone Then
For lig = 10 To Cells(Rows.Count, "B").End(xlUp).Row
If Application.CountIf(Cells(lig, "C").Resize(, 26), LCase(Target)) = 0 Then Rows(lig).Hidden = True
Next lig
End If
End Sub
Sur les lignes 6 ou 7, si tu cliques sur une cellule colorée tu filtres dessus. Si pas de couleur tu affiches tout.
Continue à saisir en minuscules sur le diagramme, ça évite de devoir boucler sur toutes les cellules pour les convertir.
eric