Bonjour
Je pense que tu parles de la ligne 16 et non pas 15?
dans ce cas sans avoir tout dépiauté, modifie le code comme ceci. de J'ai déplacé set cel
Set cel = Plage.Columns(1).Find(CLng(Date), , xlValues, xlWhole)
If IsNull(Plage.Columns(1).NumberFormat) Then F = "dddd dd mmmm yyyy" Else F = Plage.Columns(1).NumberFormat
Plage.Columns(1).NumberFormat = "General"
'effectue la recherche de la date en type Long sur la colonne A
'Set cel = Plage.Columns(1).Find(CLng(Date), , xlValues, xlWhole)