diff --git a/data-raw/modification_sqlite.R b/data-raw/modification_sqlite.R
new file mode 100644
index 0000000000000000000000000000000000000000..21c6feb96561ecc463c2b2969fa9344b09ec5e91
--- /dev/null
+++ b/data-raw/modification_sqlite.R
@@ -0,0 +1,22 @@
+# SCRIPT D'EXEMPLE POUR MODIFIER LE FICHIER SQLITE
+# CECI EST UN EXEMPLE DE METHODE ET NON PAS UN SCRIPT A APPLIQUER TEL QUEL
+
+library(RSQLite)
+
+con <- dbConnect(SQLite(),"database.sqlite")  #se connecter au sqlite
+dbListTables(con)   # lister les tables
+# [1] "credentials" "logs"        "pwd_mngt" 
+
+df <- dbReadTable(con, "logs")  #lire une table pour visualiser le contenu
+
+# modifier les données (supprimer lignes ...)
+# mettre à jour une valeur : exemple, dans la table logs, quand status = wrong pwd, écrie "personne dans la colonne user 
+dbExecute(con, "UPDATE logs SET user = 'personne' WHERE status = 'Wrong pwd'")
+# ajouter une ligne ; exemple, ajout à la table logs une ligne en remplissant les colonnes user, server_connected et app.
+dbExecute(con, "INSERT INTO logs (user, server_connected, app) VALUES ('admin4', '2028-11-08 10:41:12', 'filocubes')")
+# supprimer des ligne : exemple, dans la table logs, supprimer toutes les lignes avec user = admin2
+dbExecute(con, "DELETE FROM logs WHERE user = 'admin2'")
+# supprimer des ligne en fonction d'une date:
+dbExecute(con, "DELETE FROM logs WHERE server_connected < 2025")
+
+dbDisconnect()  # déconnecter
\ No newline at end of file