Sub ac()
Dim i, pf As Range, cCopy As Range
For i = 2008 To 2014
With Sheets(CStr(i))
On Error Resume Next
.Range("D1").AutoFilter Field:=4, Criteria1:="Terminé"
Set pf = .[_FilterDataBase]
Set cCopy = pf.Offset(1, 0).Resize(pf.Rows.Count - 1).SpecialCells(12)
On Error GoTo 0
If Not (cCopy Is Nothing) Then
cCopy.Copy Sheets("Dossiers Terminés").[A65536].End(xlUp)(2)
cCopy.Delete shift:=xlUp 'suppression dans feuilles source
End If
.AutoFilterMode = False
Set pf = Nothing
Set cCopy = Nothing
End With
Next
End Sub