Suprimer une colonne en fonction d'une date

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Annee As Long
Dim Date1 As Date
Dim Cell As Range
   On Error GoTo Worksheet_BeforeDoubleClick_Error

If Target.Count > 1 Then Exit Sub
If Target.Row <> 2 Then Exit Sub
If Not IsDate(Target) Then Exit Sub
Annee = Year(Target)

With Sheets(CStr(Annee - 1))
Date1 = DateAdd("yyyy", -1, Target)
    For Each Cell In .Range(.Cells(2, 1), .Cells(2, .Cells(2, Rows(2).Cells.Count).End(xlToLeft).Column))
        If Format(Cell, "dd/mm/yyyy") = Format(Date1, "dd/mm/yyyy") Then
            .Columns(Cell.Column).Delete Shift:=xlToLeft
            Exit For
        End If
    Next Cell
End With

   On Error GoTo 0
   Exit Sub

Worksheet_BeforeDoubleClick_Error:

    MsgBox "Error la feuille " & Annee & " n'existe pas"
End Sub