Bonjour,
Tu n'as pas les événements LostFocus et AfterUpdate sur une feuille ou un classeur mais sur des contrôles (Case à cocher, etc.)
Tu peux utiliser ce code sur ta feuille :
Sub worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A1"), Target) Is Nothing Then
....
End If
A adapter à ta cellule en question.
A+