Dim sh As Worksheet, sh2 As Worksheet
Dim NomFeuilleDestination As String
Set sh = Sheets("Origine") 'Feuille à copier
NomFeuilleDestination = "Destination"
'Ouvrir le classeur destination
Workbooks.Open Filename:=ThisWorkbook.Path & "\classeur4.xls"
' Empêcher les avertissements excel
Application.DisplayAlerts = False
' Eviter le message d'erreur si la feuille destination n'existe pas
On Error Resume Next
' Tester si la feuille Destination existe
Set sh2 = ActiveWorkbook.Sheets(NomFeuilleDestination)
' Si elle existe on la supprimer
If Not sh2 Is Nothing Then sh2.Delete
'Rétablir la gestion normale des erreurs
On Error GoTo 0
' Rétablir les avertissement
Application.DisplayAlerts = True
'Coller la feuille Origine dans le classeur destination
sh.Copy After:=Workbooks("Classeur4.xls").Sheets(1)
With ActiveSheet
.UsedRange.Copy
.UsedRange.Range("A1").PasteSpecial xlPasteValues
.Name = NomFeuilleDestination
End With
Application.CutCopyMode = False