Sub CreateFileLog()
    FileNumber = FreeFile    ' Lit le numéro de fichier inutilisé
    LogFile = "C:\Users\Kader\Desktop\Projet_7.sldmat"
    Open "C:\Users\Kader\Desktop\Projet_7.sldmat " For Append As #FileNumber
    Print #FileNumber, "-----------------------------"
    Print #FileNumber, "-----------------------------"
    Print #FileNumber, "-----------------------------"
    Print #FileNumber, "-----------------------------"
    Print #FileNumber, "-----------------------------"
    Print #FileNumber, "-----------------------------"
    Print #FileNumber, "-----------------------------"
    Print #FileNumber, "-----------------------------"




    Close #FileNumber
End Sub