Option Explicit
Dim tablo, tabloR(), I&, j&, k&, cond1&, cond2&, cond3&, c As Range, ds As Double, ts As Double, d As Double
Sub Extraire()
Application.ScreenUpdating = False
tablo = Range("A4:c" & Range("A" & Rows.Count).End(xlUp).Row)
cond1 = Range("f1")
cond2 = Range("f2")
k = 1
For I = 1 To UBound(tablo, 1)
If tablo(I, 2) = cond1 And tablo(I, 3) = cond2 Then
ReDim Preserve tabloR(1 To 3, 1 To k + 1)
For j = 1 To 3
ds = DateSerial(Year(tablo(I, j)), Month(tablo(I, j)), Day(tablo(I, j)))
ts = TimeSerial(Hour(tablo(I, j)), Minute(tablo(I, j)), Second(tablo(I, j)))
d = ds + ts
tabloR(j, k) = tablo(I, j)
If j = 1 Then tabloR(j, k) = d
Next j
k = k + 1
End If
Next I
Range("h4:j600").Clear
If k > 1 Then Range("h4").Resize(UBound(tabloR, 2), 3) = Application.Transpose(tabloR)
Columns("H:H").NumberFormat = "dd/mm/yyyy hh:mm:ss"
End Sub