Private Sub UserForm_Initialize()
Dim wbArticles As Workbook
Dim wb As Workbook
For Each wb In Workbooks
If wb.FullName = WB_BASE_ARTICLES Then
Set wbArticles = wb
Exit For
End If
Next wb
Set wsFacture = ThisWorkbook.Sheets(WS_FACTURE)
wsFacture.Range("chiflet").ClearContents
If wbArticles Is Nothing Then
Set wbArticles = Workbooks.Open(WB_BASE_ARTICLES)
End If
Set wsArticles = wbArticles.Sheets(WS_ARTICLES) 'Set pour attribuer des références d'objet à des variables
ThisWorkbook.Activate