Private Sub Dupliquer_Click()
Dim mem
Application.ScreenUpdating = False
With Sheets("Source")
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
mem = .UsedRange.Formula
.UsedRange = .UsedRange.Value 'supprime les formules
.[A:A].Replace [C6], "#N/A", xlWhole
On Error Resume Next 'si aucune SpecialCell
Intersect(.[A:A].SpecialCells(xlCellTypeConstants, 16).EntireRow, .[B:P]).Copy Range("B" & UsedRange.Row + UsedRange.Rows.Count)
.UsedRange = mem 'restitue les formules
End With
End Sub