Set ligne = ActiveSheet.Cells(6, 14) 'par exemple : debut de la colonne ou
' il les dates
datos = ligne
inc = 6
dates = date 'date te donne la date d'aujourd'huit
While (datos <> "") ' si il trouve un vide ça veut dire que c la fin de la
' colonne
liaison = ligne
If (datos < date) and (datos>olddate) Then 'tu verifie si la date de la
'cellule actuel et plus proche que celle qui etait avant
olddate=datos
end if
inc = inc + 1
Set ligne = ActiveSheet.Cells(inc, 14)
datos = ligne
Wend
'a la fin la variable "olddate" contiendra la date la plus proche
' d'aujourd'huit
j'espere que ça resoud ton probleme sinon tu envoi un exemple de ton probleme comme attachement j'essaiyerai de le voir