Bonjour…
pour parer au plus pressé , tester
Sub Filtre_par_Critères()
Dim n As Byte
For n = 0 To 3
Cells(204, Array(3, 8, 15, 19)(n)).Resize(65000) = ""
With Cells(204, Array(3, 8, 15, 19)(n)).Resize(72)
.FormulaR1C1 = "=RC[" & Array(31, 27, 21, 18)(n) & "]"
.Value = .Value 'plus de formule (à voir)
End With
Next
End Sub