Executer une macro a chaque action

Sub Convertion()
  Dim Derlig As Long, Lig As Long
  Application.EnableEvents = False
  ' Convertir le format de la colonne G en nombre avec 3 chiffres derrière la virgule
  Columns("G:G").NumberFormat = "#,##0.000"
  ' Trouver la dernière ligne du tableau
  Derlig = Range("A" & Rows.Count).End(xlUp).Row
  ' Pour chaque ligne
  For Lig = 2 To Derlig
    ' Si l'unité est le mêtre
    If Range("H" & Lig).Value = "M" Then
      ' On divise la vrai valeur par 1000
      Range("G" & Lig).Value = Range("G" & Lig).Value / 1000
    End If
  Next Lig
  Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Convertion
End Sub

Option Explicit


Private Sub Worksheet_Change(ByVal Cible As Excel.Range)
If Not Intersect(Range("A:E"), Cible) Is Nothing Then
Application.ScreenUpdating = False
Application.EnableEvents = False
Call Convertion
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

' ---------- Si au cours des essais, une erreur survient, la détection automatique d'événements ne fonctionne plus.
'            Il faut donc la réactiver en mettant le curseur sur la ligne de code ci-dessous et en appuyant sur F5
Sub ess()
Application.EnableEvents = True
End Sub

If Not Intersect(Range("A:E"), Cible) Is Nothing Then

If Not Intersect(Range("G:G"), Cible) Is Nothing Then

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Range("H:H"), Target) Is Nothing Then
Application.ScreenUpdating = False
Application.EnableEvents = False
if Target.value = "M" then
Target.offset(0,-1).value = Target.offset(0,-1).value/1000
end if
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub