Sub a()
Dim pf As Range, plage_source, to_plage_destination As Range
Application.ScreenUpdating = False
Set to_plage_destination = Sheets("bb").Range("A4")
With Sheets("aa")
With .Range("C3")
.Value = "XXXX"
.AutoFilter 3, "<>"
End With
Set pf = .Range("_FilterDataBase")
Set plage_source = _
pf.Offset(1, 0).Resize(pf.Rows.Count - 1).SpecialCells(12)
plage_source.Copy to_plage_destination
.AutoFilterMode = False
.[C3] = Empty
End With
Application.CutCopyMode = False
End Sub