Welcome . How do I copy values without formats
VBA Code:
Public Sub drewhx15()
Dim Rng As Range
With ThisWorkbook.Worksheets("feuil1")
Set Rng = .Range("a5:d" & .Cells(.Rows.Count, "A").End(xlUp).Row)
End With
With Rng
.AutoFilter Field:=2, Criteria1:="ok"
.Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1).Copy ThisWorkbook.Worksheets("Sh").Range("a12")
.AutoFilter Field:=2, Criteria1:="yes"
.Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1).Copy ThisWorkbook.Worksheets("Sh").Range("e12")
.Parent.AutoFilterMode = False
End With
End Sub