Bonjour Said, bonjour le forum,
Essaie avec la procédure événementielle Change ci-dessous (à placer dans le composant Feuil2(Feuil2) :
Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
Select Case Target.Address 'agit en fonction de l'adresse de la cellule modifiée
Case "$C$2" 'cas C2
'affiche/masque l'onglet en fonction de la valeur de la cellule C2
Sheets("infos exsitant ").Visible = IIf(Target.Value = "Existe", True, False)
Case "$C$3" 'cas C3
'affiche/masque l'onglet en fonction de la valeur de la cellule C3
Sheets("Modalité adapté").Visible = IIf(Target.Value = "Adapté", True, False)
End Select 'fin de l'action en fonction de l'adresse de la cellule modifiée
End Sub