Bonsoir tout le monde

voilà j'ai un problème avec ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub UserForm_Initialize()
    nbComp = Worksheets("Competence").Range("A5").End(xlToRight).Column
    For i = 1 To nbComp
        ComboBox1.AddItem Cells(5, i)
    Next
End Sub
le but étant de rentrer les valeurs présentes sur la feuille "Competence" dans la combobox, sachant que l'on se trouve actuellement sur une autre feuille qui s'appelle "Equipe"

Seulement voilà, les valeurs de la combobox sont en fait celles présentes sur la feuille "Equipe", ce qui veut dire que Worksheets("Competence) n'agit pas correctement

je sais que le bout de code suivant fonctionne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
    Worksheets("Competence").Activate
    nbComp = Range("A5").End(xlToRight).Column
    For i = 1 To nbComp
        ComboBox1.AddItem Cells(5, i)
    Next
End Sub
mais avec ce code, il se déplace sur la feuille "Competence", alors que justement, je souhaiterai rester sur la feuille "Equipe"

Est-ce que quelqu'un aurait une idée?

je précise que je travaille avec excel 2010

merci d'avance