Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Col As Integer, Lig As Long
' Gestion des Feuilles
If InStr(1, Sh.Name, "ProtocoleInsuline") > 0 Then Exit Sub
' Gestion des Colonnes
If Intersect(Target, Range("B6:V36")) Is Nothing Then Exit Sub
'
' Matin, midi ou soir
' Définir ou se situe la saisie
Col = Target.Column: Lig = Target.Row
' Empêcher les évènements puisqu'il va y avoir modification
Application.EnableEvents = False
' Si la cellule de la ligne 5 de la colonne de la cellule modifié
' contient : gramme
If Cells(5, Col) = "gramme" Then
' Il faut donc modifier la colonne suivante
Sh.Cells(Lig, Col + 1).Value = Target.Value / 0.18
Else
' sinon il faut modifier la colonne précédente
Sh.Cells(Lig, Col - 1).Value = Target.Value * 0.18
End If
' Réactiver les évènemetns
Application.EnableEvents = True
End Sub