bon je suis allé voir ton programme, mais c'est un tel bazar, que je me limiterai à répondre à ta première question (la seule que j'ai comprise d'ailleurs) : comment initialiser le combobox. Comme il n'y a que deux valeurs, on va au plus simple !
Private Sub ComboBox1_Change()
TextBoxRepere = ComboBox1.ListIndex + 1
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "31212"
.AddItem "30456"
.ListIndex = 0
End With
End Sub
Par contre, je ne vois pas comment ton programme peut marcher puisque tu références des feuilles qui n'existent même pas dans ton fichier.