Sub Tri()
Dim datejour As Date
Dim numsemaine As Integer
Dim annee As Integer
datejour = Format(Now(), "dd-mm-yyyy")
annee = Format(Now(), "yyyy")
With WorksheetFunction
numsemaine = .WeekNum(datejour)
End With
Dernier = Cells(65536, 1).End(xlUp).Row
For i = Dernier To 2 Step -1
If ((Cells(i, 1).Value > numsemaine + 2) And (Cells(i, 2) = annee)) Then
Cells(i, 2).EntireRow.Delete
ElseIf Cells(i, 1).Value = 1 And numsemaine < 51 And Cells(i, 2) > annee Then
Cells(i, 2).EntireRow.Delete
ElseIf Cells(i, 1).Value = 2 And numsemaine < 52 And Cells(i, 2) > annee Then
Cells(i, 2).EntireRow.Delete
ElseIf Cells(i, 1).Value = 3 And numsemaine < 53 And Cells(i, 2) > annee Then
Cells(i, 2).EntireRow.Delete
ElseIf Cells(i, 1).Value = 4 And numsemaine < 54 And Cells(i, 2) > annee Then
Cells(i, 2).EntireRow.Delete
ElseIf Cells(i, 1).Value > 4 And numsemaine < 52 And Cells(i, 2) > annee Then
Cells(i, 2).EntireRow.Delete
End If
Next i
End Sub