Bonjour
Avec ce code à placer dans la feuille test macro (donc clic droite, choisir "visualiser le code" et placer le code dans la fenêtre")
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dlg As Integer
Cells.EntireRow.Hidden = False
dlg = ActiveSheet.UsedRange.Rows.Count
If Not Intersect(Target, Range("B2")) Is Nothing Then
Select Case UCase(Target)
Case Is = "AUDIT PROCESSUS"
Rows("105:" & dlg).EntireRow.Hidden = True
Case Is = "AUDIT EBMD"
Rows("74:110").EntireRow.Hidden = True
Rows("175:280").EntireRow.Hidden = True
End Select
End If
End Sub
Ne pas oubliez d'enregistrer le ficher au format xlsm
Cordialement
Edit : oups, .... pas vérifié que d'autres avaient postés
Bon si pas d'intérêt, je supprimerai