Sub SupprimeAnnee()
Dim i As Integer
Sheets("SWI08").Select
If MsgBox("Nous sommmes, le " & Format(Date, "dddd dd mmmm yyyy") & vbNewLine & "Vous voulez supprimer l'année 2009 ?", vbYesNo) = vbYes Then
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, 1).Value = "2009" And Cells(i, 1) < Now Then
Cells(i, 1).EntireRow.Delete
i = i - 1
End If
Next
Else
End If
End Sub