rebonjour sabzzz
j'ai un autre probleme avec le lancement d'un userform, car il prend plus de temps qu'il en faut et je pense que c'est ce bout du code qui n'est pas en ordre:
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
Private Sub UserForm_Initialize()
Dim j As Integer
Sheets("liste_du_personnel").Select 
For j = 7 To Range("e65536").End(xlUp).Row
ComboBox1 = Range("e" & j) 
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("e" & j)
Next j
With UserForm1
        .StartUpPosition = 3
        .Width = Application.Width
        .Height = Application.Height
        .Left = 0
        .Top = 0
End With
End Sub
je te remercie d'avance.