Microsoft 365 Erreur VBA

[Grododos]

Bonjour,
Je suis vraiment une bille en VBA mais pour réaliser certaines tâches on ne peut cependant s'en passer.
La première Sub fonctionne bien seule. Par contre l'ajout de la seconde fait planter Excel.
Mon besoin est de copier l'une ou l'autre de deux plages selon le contenu d'une cellule.
Malheureusement le code plante. Pourriez vous svp m'aider à résoudre mon problème?
Merci par avance


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").Value = ActiveCell.Address
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("E18") = 8 Then
Range("y5:z14").Copy Worksheets("HTD ratio").Range("A5")
Else
Range("w5:x14").Copy Worksheets("HTD ratio").Range("A5")
End If
End Sub

 

[vgendron]

bonjour

Comme on ne voit pas ton fichier;. on ne peut pas vraiment parier sur l'origine de ton pb mais .. essaie ceci

Private Sub Worksheet_Change(ByVal Target As Range)
application.enableevents=false
If Range("E18") = 8 Then
Range("y5:z14").Copy Worksheets("HTD ratio").Range("A5")
Else
Range("w5:x14").Copy Worksheets("HTD ratio").Range("A5")
End If
application.enableevents=true
End Sub

 

[Grododos]

Vous êtes un champion : le problème est résolu. Merci beaucoup.