Bonjour gat64,
Sans fichier je ne sais pas ma solution est optimal mais au moins ça fonctionne :)
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Range("D7")
Case Is = "a"
Rows("1").Hidden = True
Rows("2").Hidden = False
Rows("3").Hidden = False
Case Is = "b"
Rows("1").Hidden = False
Rows("2").Hidden = True
Rows("3").Hidden = False
Case Is = "c"
Rows("1").Hidden = False
Rows("2").Hidden = False
Rows("3").Hidden = True
End Select
End Sub
dc D7 correspond à ta cellule avec ta réponse, a, b et c tes réponses possible tu peux en rajouter ou en enlever et les lignes 1, 2, 3 tu peux modifier aussi pour l'adapter à ton problème
voilà :D