Copie de feuille qui fait planter ma macro

[Yoyo]

Bonjour j'ai un petit problème avec une macro.

Voila elle fonctionne bien une fois sur deux
elle plante au moment de la copie d'une feuille et elle me créer une erreur qui me ferme excel
j'ai annuler toutes les action évenementiel les alerte mais aucun résultat.
J'ai aussi essayé de changer la facon de faire la copie mais idem.


Je vous transmet le début de mon code en espérant que vous pourrez m'aider:


Option Explicit
Dim codepers As Variant 'à la lettre représentant le nom du commercial qui a réalisé la quote
Dim codeann As Variant ' c'est le dernier chiffre de l'année en cour
Dim codeclé As Variant ' c'est le code clé
Dim nomquote As String 'nom de la cote
Dim LD, LF As Long 'donne les ligne de début et de fin de la selection
Dim ldeb, lfin As Long 'variable de ligne sélectionnée pour travail
Dim difligne As Long '=LD-LF
Dim finmef As Long 'ligne de fin de mise en forme
Dim Ldébut As Long

Sub QUOTE_MAKER()

On Error GoTo erreur


Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
'Donne la ligne de début et de fin de la sélection
With Selection
LD = .Row
LF = LD + .Rows.Count - 1
End With

' initialise les variables
ldeb = LD
lfin = LF

'Génération du quote log

' Met dans codepers le code ducommercial qui a réalisé la quote

Select Case Range('G' & LD, 'G' & LD).Value
'
Case 'Emmanuelle LIEBE'
codepers = 'E'
Case 'Sandrine PETIT'
codepers = 'S'
Case 'Isabelle VIALA'
codepers = 'I'
Case 'Pierre LESUR'
codepers = 'P'
Case 'Olivier GASTON'
codepers = 'O'
Case 'Evelyne THOMASSIN'
codepers = 'T'
Case 'Claire AIME'
codepers = 'C'
Case 'Marie-Dominique RAFFY'
codepers = 'M'
End Select
codeann = Right(Year(Date), 1)
codeclé = Right(Hex(Hour(Time) * Minute(Time)), 2)

nomquote = (codepers & codeann & Month(Date) & Day(Date) & codeclé)
'recopie quote log dans quote file



' Création d'une quotation


Sheets('Template Quote VSE').Select
Sheets('Template Quote VSE').Copy After:=Sheets(3) ' Copie la feuille template après la feuille 2
Sheets('Template Quote VSE (2)').Select
Sheets('Template Quote VSE (2)').Name = 'Quote' 'renomme la feuille
'Dim VoirFeuille As Integer
Sheets('Quote file OEM DISTRI').Select

For Ldébut = LD To LF
Range('F' & Ldébut) = nomquote
Next Ldébut
'ThisWorkbook.Activate


'With Sheets('Template Quote VSE')
' VoirFeuille = .Visible
' .Visible = xlSheetVisible
' .Copy After:=Sheets(3)
'With ActiveSheet
' .Name = 'Quote'
' End With
' .Visible = VoirFeuille
'End With

Cordialement Yoyo