Sub CopiT45()
Dim Tablo, i As Long, WS1 As Worksheet, WS2 As Worksheet, x As Long
Set WS1 = Worksheets("Feuil1")
Set WS2 = Worksheets("Feuil2")
With WS1
derl = .Range("A" & Rows.Count).End(xlUp).Row
ReDim Tablo(1 To derl, 1 To 2)
For i = 2 To derl
If .Cells(i, 2).Value = "T45" Then
x = x + 1
Tablo(x, 1) = .Cells(i, 1)
Tablo(x, 2) = .Cells(i, 3)
End If
Next
End With
WS2.Range("A1").Value = "Date"
WS2.Range("B1") = "Cr (%)"
WS2.Range("A2").Resize(UBound(Tablo, 1), 2) = Tablo
End Sub