For j = 2 To .Range("N65000").End(xlUp).Row
If .Cells(j, "N").Value >= CDate(TextBox800.Text) And .Cells(j, "N").Value <= CDate(TextBox801.Text) Then
ReDim Preserve tableau(i + 1)
tableau(i) = Array(.Range("G" & j), .Range("H" & j), .Range("M" & j), .Range("C" & j))
i = i + 1
End If
Next j