Private Sub UserForm_Initialize()
With ComboBoxDepartement
.RowSource = Sheets('feuil2').Range('B2:B98')
.ListIndex = Sheets('feuil2').Range('B1').Value
End With
End Sub
Private Sub ComboBoxDepartement_Change()
Sheets('feuil2').Range('B1').Value = ComboBoxDéperditionParois.ListIndex
End Sub