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