Affectation automatique de valeur par defaut a l'ouverture du fichier

Private Sub Workbook_Open()

    Dim FlowMatrix As Range
    Dim TypeTrip As Range
    Dim BookingDate As Range
    Dim ASRCPP As Range
    Dim SkinValue As Range
    Dim Langue As Range
    
    Set Sheets(Matrix).Range(FlowMatrix).Value = Flow
    Set Sheets(Matrix).Range(TypeTrip).Value = Trip
    Set Road = Empty
    Set Sheets(Matrix).Range(BookingDate).Value = Date
    Set Adult = Empty
    Set Child = Empty
    Set Infant = Empty
    Set EnableFF = Empty
    Set Program = Empty
    Set FFName = Empty
    Set Sheets(Matrix).Range(ASRCPP).Value = Functionalities
    Set CurrencyConvertor = Empty
    Set DCC = Empty
    Set Sheets(Matrix).Range(SkinValue).Value = Skin
    Set Sheets(Matrix).Range(Langue).Value = Language
End Sub