Sub AidesaisieRF()
Dim Formulaire As Worksheet
Set Formulaire = Sheets("Formulaire1")
Dim Liste_RF As Worksheet
Set Liste_RF = Sheets("Liste RF")
Formulaire.Activate
Formulaire.OLEObjects.Add classtype:="Forms.ListBox.1", Left:=360, Top:=15
Formulaire.OLEObjects.Add classtype:="Forms.Textbox.1", Left:=190, Top:=40
'Formulaire.ListBox1.ListFillRange = Liste_RF.Range("C3:C15000").Address
Sheets("Formulaire1").ListBox1.ListFillRange = Liste_RF.Range("C3:C15000").Address
Call ChargeListbox(Range("C2"))
End Sub