data.Select
plage = Cells(4, 10).Address(0, 0) & ":" & Cells(Cells(65536, 1).End(xlUp).Row, 10).Address(0, 0)
For Each Rng In Range(plage)
If Rng.EntireRow.Hidden = False Then
If Rng.Value = "OK" Then
Set sélectionl = Range(Cells(Rng.Row, 1).Address(0, 0), Cells(Rng.Row, 11).Address(0, 0))
z = IIf(Worksheets("Archive").Cells(65536, 1).End(xlUp).Row + 1 > 4, Worksheets("Archive").Cells(65536, 1).End(xlUp).Row + 1, 4)
sélectionl.Copy Destination:=Worksheets("Archive").Cells(z, 1)