Re
essayez ceci
1. Dans votre feuille Resultats, mettez ces deux codes en lieu et place
Private Sub Worksheet_Activate()
Rows("27:30").EntireRow.Hidden = True
Range("G3").Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("G2")) Is Nothing Then
Call masque_Affiche
End If
End Sub
2. Dans le module, ajoutez le code ci-dessous
Sub masque_Affiche()
Dim dlg As Byte
Application.ScreenUpdating = False
With Sheets("Résultats")
dlg = .Range("B7").CurrentRegion.Rows.Count + 1
Select Case UCase(Range("G2"))
Case "TOUS"
.Rows("7:" & dlg).Hidden = False
Case Else
For i = 7 To dlg
If Not UCase(.Range("B" & i)) Like "*IMPORTANT*" Then
If .Range("C" & i).Value <> .Range("G2").Value Then
.Rows(i).Hidden = True
Else: .Rows(i).Hidden = False
End If
End If
Next i
End Select
End With
Application.ScreenUpdating = True
End Sub
Pour le test, changez la valeur en G2
Crdlt