If Not Intersect(Target, Range(Range("FirstAbsence "), Cells(LastDateRow, LastDateColumn)) Is Nothing Then
Même si de prime abord, ta formulation Range("FirstAbsence " : Cells(LastDateRow,LastDateColumn)) semble logique, elle est hybride puisqu'elle associé un nom "FirstAbsence " avec l'adresse d'une cellule Cells(LastDateRow,LastDateColumn), cela ne fonctionne donc pas. La solution consiste donc à donner l'adresse de "FirstAbsence ", donc Range("FirstAbsence ")
idem que Jean-Eric dont je viens de voir la solution.