Sub SupLig()
Dim Tablo, TabFin(), i As Long, j As Integer, x As Long
'deb = Timer
Tablo = Worksheets("Feuil1").UsedRange
For i = LBound(Tablo, 1) + 1 To UBound(Tablo, 1) ' +1 si ligne de titre
If Year(Tablo(i, 1)) >= Year(Date) Then
x = x + 1
ReDim Preserve TabFin(1 To UBound(Tablo, 2), 1 To x)
For j = LBound(Tablo, 2) To UBound(Tablo, 2)
TabFin(j, x) = Tablo(i, j)
Next
End If
Next
Worksheets("Feuil2").Range("A2").Resize(UBound(TabFin, 2), UBound(TabFin, 1)) = Application.Transpose(TabFin)
'MsgBox Timer - deb
End Sub