Sub test()
Dim c As Range
Set c = Columns(1).Find(what:=Int(Now), LookIn:=xlValues, lookat:=xlWhole)
If c Is Nothing Then 'Si la date du jour n'est pas présente
Columns(1).Insert: Columns(1).Insert
Columns(3).Copy Columns(1)
Columns(1).Sort key1:=[A1], order1:=xlAscending 'On trie les dates
Set c = [A2]
Do While c < Int(Now)
Set c = c(2, 1)
Loop ' on trouve la date juste supérieure à celle du jour
Set c = Columns(3).Find(what:=c, LookIn:=xlValues, lookat:=xlWhole) 'et on pointe dessus
Columns(1).Delete: Columns(1).Delete
End If
c.Select 'on sélectionne la cellule trouvée
End Sub