Abscence validation de données dans ma cellule

Excel
1

Bonjour à tous.

dans mon tableau j ai une cellule avec validation de donnees colonne E.
maintenaint a chaque creation de nouvelle ligne la cellule dans de la colonne E ne me donne plus l’option de validation de donnees.
validation de données.xlsm (213,7 Ko)
j aimerai savoir le pourquoi cette option s"enleve d’elle meme et comment puisje la reparer
la creation d’une nouvelle ligne est realisée par un double clic dans la colonne A qui m’insere aussi une date.

2

cette validation a besoin des plages nommées comme cette liste, mais il n’y a pas …
VEHICULE
BETON
SECURITE
COFFRAGE
ELECTRIQUE
CANTONNEMENT
ETAIEMENT
ENGIN
ACCES_HAUTEUR
ECHAFAUDAGE
LEVAGE
SPECIFIQUE
TOPOGRAPHIE
POIDS_LOURDS
PERSONNEL
PERSONNEL_
GASOIL
PLATEAU_3_5T
EAU
PARC
POINT_P
ACI
CHRYSO
ANZEMBERG

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

     With Me.ListObjects("Tfevrier")
          If Target.Address = .DataBodyRange.Cells(.Range.Rows.Count, 1).Address Then
               Target = Date
               Cancel = True
          End If
     End With
End Sub