diff --git a/IR/ir_send.lua b/IR/ir_send.lua
deleted file mode 100644
index 8403e97..0000000
--- a/IR/ir_send.lua
+++ /dev/null
@@ -1,11 +0,0 @@
--- Petit script pour faire clignoter la LED IR
-
-print("\n ir_send.lua  zf180906.1709  \n")
-
-pin_ir_send = 8
-
-gpio.mode(pin_ir_send,gpio.OUTPUT)
-gpio.write(pin_ir_send,gpio.HIGH)
-pwm.setup(pin_ir_send,50,512)
-pwm.start(pin_ir_send)
-
diff --git a/IR/ir_send1.lua b/IR/ir_send1.lua
index 8403e97..af05680 100644
--- a/IR/ir_send1.lua
+++ b/IR/ir_send1.lua
@@ -1,6 +1,6 @@
 -- Petit script pour faire clignoter la LED IR
 
-print("\n ir_send.lua  zf180906.1709  \n")
+print("\n ir_send1.lua  zf180906.1709  \n")
 
 pin_ir_send = 8
 
diff --git a/IR/ir_send3.lua b/IR/ir_send3.lua
index ee1c587..f048288 100644
--- a/IR/ir_send3.lua
+++ b/IR/ir_send3.lua
@@ -22,4 +22,3 @@ end
 
 sendir_tmr1=tmr.create()
 tmr.alarm(sendir_tmr1, 1, tmr.ALARM_AUTO, pulse_ir)
-
diff --git a/IR/ir_send4.lua b/IR/ir_send4.lua
new file mode 100644
index 0000000..16ddf1f
--- /dev/null
+++ b/IR/ir_send4.lua
@@ -0,0 +1,16 @@
+-- Petit script pour faire clignoter la LED IR à 38kHz
+-- ATTENTION, on utilise ici l'astuce du gpio.serout pour faire la pulse,
+-- car on n'arrive pas avec le gpio.write à faire une pulse plus courte que 400uS
+
+print("\n ir_send4.lua  zf180909.1903  \n")
+
+pin_ir_send = 7
+gpio.mode(pin_ir_send,gpio.OUTPUT)
+gpio.write(pin_ir_send,gpio.HIGH)
+
+function pulse_ir()
+    gpio.serout(pin_ir_send,gpio.LOW,{14,13},38)
+end
+
+sendir_tmr1=tmr.create()
+tmr.alarm(sendir_tmr1, 10, tmr.ALARM_AUTO, pulse_ir)
diff --git a/Minid1 OLED/hauteur_eau/station_display/init.lua b/Minid1 OLED/hauteur_eau/station_display/init.lua
index 7cffbe5..d7ede13 100644
--- a/Minid1 OLED/hauteur_eau/station_display/init.lua	
+++ b/Minid1 OLED/hauteur_eau/station_display/init.lua	
@@ -1,5 +1,5 @@
 -- super mini bootstrap 
-print("\n init_minizf1.lua   zf180828.1825   \n")
+print("\n init_minizf1.lua   zf180909.1901   \n")
 
 tmr.alarm(0, 5000, tmr.ALARM_SINGLE, function()
 
@@ -15,5 +15,6 @@ dofile("wifi_ap_start.lua")
 dofile("telnet_srv.lua")
 dofile("web_oled_minid1.lua")
 dofile("start_demo.lua")
+--dofile("ir_send4.lua")
 
 end)
diff --git a/Minid1 OLED/hauteur_eau/station_mesure/init.lua b/Minid1 OLED/hauteur_eau/station_mesure/init.lua
index 12fc17b..bd82b76 100644
--- a/Minid1 OLED/hauteur_eau/station_mesure/init.lua	
+++ b/Minid1 OLED/hauteur_eau/station_mesure/init.lua	
@@ -1,5 +1,5 @@
 -- super mini bootstrap 
-print("\n init_minizf1.lua   zf180826.1810   \n")
+print("\n init_minizf1.lua   zf180909.1921   \n")
 
 tmr.alarm(0, 5000, tmr.ALARM_SINGLE, function()
 
@@ -14,5 +14,6 @@ disp_oled()
 --dofile("wifi_ap_start.lua")
 --dofile("telnet_srv.lua")
 dofile("start_demo.lua")
+dofile("ir_send4.lua")
 
 end)