Appeler plusieurs listboxes sur une feuille

Bonjour à tous,



je suis étudiante et je dois dépouiller des questionnaires sous excel, mais en bonne novice je rencontre un souci, j'espère que vous pourrez m'aider! voici le problème :
-lorsque je double-clic n'importe ou sur la colonne P, j'appelle une listbox à choix multiples (ça, ça marche)
-je voudrais, en cliquant sur la colonne A, appeler la listbox A
-en cliquant sur la colonne B, appeler la listbox B
etc
j'ai donc modifié le code suivant (qui marche) :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("P:P")) Is Nothing Then
 Exit Sub
Else
    Target.Value = ""
    Load UserForm1
    UserForm1.Show
End If
End Sub

par celui-ci (qui ne fonctionne pas du tout bien sûr) :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("P:P")) Then
    Target.Value = ""
    Load UserForm1
    UserForm1.Show
ElseIf Intersect(Target, Range("G:G")) Then
    Target.Value = ""
    Load UserForm2
    UserForm2.Show
End If
End Sub

Je me doute que la syntaxe est fausse mais je ne sais pas comment faire ? auriez-vous une idée? merci d'avance!