re salut a tous

je voudrais pouvoir a partir de ce code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
If Not Intersect(Target, Range("A2")) Is Nothing Then
Sheets("compte 1").Select
Worksheets("compte 1").Cells(2, "a").Select
 
ElseIf Not Intersect(Target, Range("A3")) Is Nothing Then
Sheets("compte 2").Select
Worksheets("compte 2").Cells(3, "a").Select
 
ElseIf Not Intersect(Target, Range("A4")) Is Nothing Then
Sheets("compte 3").Select
Worksheets("compte 3").Cells(4, "a").Select
 
ElseIf Not Intersect(Target, Range("A5")) Is Nothing Then
Sheets("compte 4").Select
Worksheets("compte 4").Cells(5, "a").Select
 
ElseIf Not Intersect(Target, Range("A6")) Is Nothing Then
Sheets("compte 5").Select
Worksheets("compte 5").Cells(6, "a").Select
 
ElseIf Not Intersect(Target, Range("A7")) Is Nothing Then
Sheets("compte 6").Select
Worksheets("compte 6").Cells(7, "a").Select
 
End If
 
End Sub
une fois la feuille et le compte sélectionner

avoir le menu déroulant userform ouvert automatiquement pour sélectionner 1 des 10 Fournisseurs dans la liste

et retrouver celui-ci en dessous de la ligne 7

et de pouvoir dans ce meme compte reouvrir le deroulant par 1 clic pour changer de Fournisseur

merci de votre aide je suis loin d être un maître en la matière!!!