Bonjour
Comme d'ici je ne vois pas l'erreur
On va tester si c'est la numérotation des Labels
Tu renumérotes tes 3 Label du plus haut vers le plus bas : Label1001, Label1002, Label1003
Dans le code tu remplaces Label1 par Label1001, Label2 par Label1002, Label3 par Label1003 (en tout 6 modifications)
Dans la macro Private Sub ComboBox1_Change() tu modifies la ligne correspondante
Me.Controls("Label" & Me.ComboBox1.ListIndex + 1001).Visible = True