Private Sub UserForm_Initialize()
Dim DerLig As Integer, NumPx As Integer
Set WbkC = Workbooks("DEVIS.xls")
Set ShtC = WbkC.Worksheets("CORNIERE")
With ShtC [COLOR=Green]'avec la feuille[/COLOR]
DerLig = .Range("A65536").End(xlUp).Row [COLOR=Green]'on detecte la derniere ligne non vide de la colonne A[/COLOR]
For NumPx = 4 To DerLig [COLOR=Green]'on boucle sur les lignes de 4 a la derniere ligne[/COLOR]
Me.ComboBox1.AddItem .Range("A" & NumPx).Value [COLOR=Green]'on colle la valeur des cellules[/COLOR]
Next NumPx
Me.TextBoxQ1.Text = .Range("B45").Value [COLOR=Green]'ici avant de sortir on récupére les valeurs des cellules B45 et B46[/COLOR]
Me.TextBoxQ2.Text = .Range("B46").Value
End With
End Sub