Problème écriture cellule

Bonjour,

j'ai 9 feuilles excel, 3 modules
dans chaque code de feuille j'ai l'évenement ;

Private Sub Worksheet_Change(ByVal Target As Range)
Call type
Call alerte1
Call alerte2
End Sub

dans le module type j'ai plusieurs conditions qui colorisent des cellules, écrivent du texte dans les cellules:
Exemple :

public sub type

Dim lig As Long
For lig = 2 To [A65535].End(xlUp).Row

If Cells(lig, 1) <> "" Then

Cells(lig, 2) = "Ouverture "

Dans alerte 1 j'ai une macro qui permet de soustraire une date antèrieur(écrite dans la colonne H) à celle de la date du jour et si la différence est supèrieur à 96h on écrit la valeur "en retard" dans la colonne AB.



Public Sub Alerte1()

Application.EnableEvents = False
Dim date96 As Date
Dim datejour As Date

date96 = 96
datejour = Now

Dim lig As Long
For lig = 2 To [H65535].End(xlUp).Row

If Cells(lig, 8) - datejour > date96 / 24 A Then
Cells(lig, 28) = "en retard"
Exit For
End If
Next lig
Application.EnableEvents = True
End Sub

dans Alerte 2 j'ai la mm chose mais permet de soustraire une date supèrieur(écrite dans la colonne H) à celle de la date du jour et si la différence est supèrieur à 96h on écrit la valeur "en retard" dans la colonne AB.


Public Sub Alerte2()

Application.EnableEvents = False
Dim date96 As Date
Dim datejour As Date

date96 = 96
datejour = Now

Dim lig As Long
For lig = 2 To [H65535].End(xlUp).Row

If datejour - Cells(lig, 8) > date96 / 24 A Then
Cells(lig, 28) = "en retard "
Exit For
End If
Next lig
Application.EnableEvents = True
End Sub


Le problème :
Lorsque j'entre une date dans la celluleH32 et qu'elle dépasse 96h par rapport à la date d'aujourdh'ui, au lieu d'écrire en retard dans AB32, il l'écrit en AB1. je ne comprends pas pourquoi, j'ai essayé de supprimé exit for, déplacer les modules etc mais toujours le mm problème.

Merci de m'aider