diff --git a/ISEN-Repair Inventory Manager/Logger.vb b/ISEN-Repair Inventory Manager/Logger.vb
index c081a75..652b8b2 100644
--- a/ISEN-Repair Inventory Manager/Logger.vb	
+++ b/ISEN-Repair Inventory Manager/Logger.vb	
@@ -5,12 +5,12 @@ Public Class Logger
 
     Dim logFileName As String = "logs\" & DateTime.Now.ToString("yyyy-MM-dd") & ".txt"
 
-    Shared Sub Load()
+    Public Sub Load()
         If Not My.Computer.FileSystem.DirectoryExists("logs") Then My.Computer.FileSystem.CreateDirectory("logs")
         If Not My.Computer.FileSystem.FileExists(logFileName) Then File.WriteAllLines(logFileName, {"LOG FILE - " & DateTime.Now.ToString("dd/MM/yyyy"), "--------------------", "[INFO] Loading software"})
     End Sub
 
-    Sub Info(str As String)
+    Public Sub Info(str As String)
         Dim objWriter As New StreamWriter(logFileName, True)
         Try
             objWriter.WriteLineAsync("[INFO] " & str)
@@ -20,7 +20,7 @@ Public Class Logger
         objWriter.Close()
     End Sub
 
-    Sub Warn(str As String)
+    Public Sub Warn(str As String)
         Dim objWriter As New StreamWriter(logFileName, True)
         Try
             objWriter.WriteLineAsync("[WARN] " & str)
@@ -30,7 +30,7 @@ Public Class Logger
         objWriter.Close()
     End Sub
 
-    Sub Critical(str As String)
+    Public Sub Critical(str As String)
         Dim objWriter As New StreamWriter(logFileName, True)
         Try
             objWriter.WriteLineAsync("[CRITICAL] " & str)
diff --git a/ISEN-Repair Inventory Manager/Main.vb b/ISEN-Repair Inventory Manager/Main.vb
index 694cab0..338da54 100644
--- a/ISEN-Repair Inventory Manager/Main.vb	
+++ b/ISEN-Repair Inventory Manager/Main.vb	
@@ -4,9 +4,10 @@ Imports System.Text
 Public Class Main
     Dim manualID_selected As Boolean = False
     Dim idList As New ArrayList
+    Dim log As New Logger
 
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Logger.Load()
+        log.Load()
         CheckIfFirstRun()
         ListAllInv()
     End Sub
@@ -15,8 +16,9 @@ Public Class Main
     ''' Function to check if app is running for the first time
     ''' </summary>
     Private Sub CheckIfFirstRun()
+        log.Info("Check and load of database")
         If Not My.Computer.FileSystem.FileExists("db.sqlite") Then
-            If MsgBox("La base de données SQLite est introuvable ou inaccesible, souhaitez-vous la régénérer ?", 4161, "Base SQLite absente ou inacessible") = 1 Then
+            If MsgBox("La base de données SQLite est introuvable ou inaccessible, souhaitez-vous la régénérer ?", 4161, "Base SQLite absente ou inaccessible") = 1 Then
                 RegenerateDB()
             Else
                 End
@@ -107,6 +109,7 @@ Public Class Main
     ''' Construct the basic structure of SQLite DB
     ''' </summary>
     Private Sub RegenerateDB()
+        log.Warn("Reconstruct database...")
         Dim genesis_seq As String = "
             CREATE TABLE `computers_desc` (
 	        `id`	TEXT NOT NULL DEFAULT 0000000000 UNIQUE,