Dim WbMF As Workbook
Set WbMF = Workbooks("ModeleFacture-xxx.xlsm")
Dim WsMF As Worksheet
Set WsMF = Sheets("Modèle Facture")
Dim CC As String
CC = Workbooks("ModeleFacture-xxx.xlsm").Worksheets("Modèle Facture").Range("D13").Value
CC = WbMF.WsMF.Range("D13").Value