Sub test()
Dim i As Integer, x As Integer
Dim a(), b()
Set f1 = Sheets("Temp")
Set f2 = Sheets("data")
ln1 = f1.Range("A65000").End(xlUp).Row
ln2 = f2.Range("A65000").End(xlUp).Row
f2.Visible = True
'effacer données de la feuilles "data"
f2.Select
Range("A2:d" & ln2 + 1).Delete
ln2 = f2.Range("A65000").End(xlUp).Row
f1.Select
a = f1.Range("A2:D" & ln1).Value
For i = 1 To UBound(a)
If Year(a(i, 3)) <> "2012" Then
For u = i + 1 To UBound(a)
For t = 1 To 4
a(u - 1, t) = a(u, t)
Next t
Next u
x = x + 1
End If
Next i
a = Application.Transpose(a)
ReDim Preserve a(LBound(a, 1) To UBound(a, 1), LBound(a, 2) To UBound(a, 2) - x)
a = Application.Transpose(a)
End Sub