If mrp < 210 Then
'If IsError(Application.Match(réf, Sheets("tampon").Range("A2:A200"), 0)) Then
'Else
'dat = WorksheetFunction.VLookup(réf, Sheets("tampon").Range("A2:F200"), 5, False)
'qty = WorksheetFunction.VLookup(réf, Sheets("tampon").Range("A2:F200"), 6, False)
'End If
For n = 2 To Sheets("tampon").Range("A200").End(xlUp).Row
If Rows(n).Hidden = False And Sheets("tampon").Range("A" & n) = réf Then
dat = Sheets("tampon").Cells(n, 5)
qty = Sheets("tampon").Cells(n, 6)
End If
Next
Cells(Tablo(i), 18).Value = qty
Cells(Tablo(i), 17).Value = dat
Cells(Tablo(i), 17).NumberFormat = "mm/dd/yyyy"
End If