Sub AllinOne()
Dim tWS, tFld, i, rNg As Range
tWS = Array("Suivi des appels", "Suivi 5 jours", "Suivi 15 jours")
tFld = Array(Array(6, "VIDE"), Array(6, "en attente"), Array(6, "en attente"))
For i = LBound(tWS) To UBound(tWS)
With Sheets(tWS(i))
Set rNg = Range(.Cells(3, 1), .Cells(Rows.Count, 1).End(3)).Resize(, 6)
rNg.AutoFilter tFld(i)(0), tFld(i)(1)
End With
Next
End Sub