Private Sub Worksheet_Change(ByVal Target As Range)
t = Array("Gratuite", "Boutique Basique", "Boutique A La Une", "Boutique Premium")
tt = Array("LISTING B Gratuite", "LISTING B Basique", "LISTING B à La Une", "LISTING B Premium")
If Target.Address = "$A$5" Then
feuille = CStr(Application.Index(tt, Application.Match(Target, t, 0)))
Worksheets(feuille).Activate
End If
End Sub