Dim FDest As Worksheet, NomFeuil As String
…
On Error Resume Next
Set FDest = ThisWorkbook.Worksheets(NomFeuil)
If Err Then Set FDest = Nothing
On Error GoTo 0
If FDest Is Nothing Then
Set FDest = ThisWorkbook.Worksheets.Add
FDest.Name = NomFeuil
End If
FSrc.UsedRange.Copy Destination:=FDest.[A1]