Problème avec fonction "case changée"

Bonjour,

Je créer un tableau qui me permet de calculer et trier des informations entre plusieurs pages.

Quand je modifie la case B5, tout s'effectue correctement, le code de la page Machine 1 s'effectue (prévu) et tout se passe bien.

j'ai quelques autres informations qui viennent s'ajouter sur ma page, cependant je suis en phase de test,

ducoup je supprime souvent une sélection de cases pour re-tester.

Le problème est que dès que je modifie (supprime) une sélection de cases, l'erreur 13 s'affiche et cela me renvoie à ce code.

(je l'utilise aussi sur la page Machine1 et cela fonctionne bien)

Codé dans la page Acceuil :

Sub Worksheet_Change(ByVal cible As Range)

If cible = Range("B5") Then

Sheets("Machine1").Range("B1").Value = Sheets("Acceuil").Range("B5").Value

End If

End Sub

Merci de votre aide.

ps: en réessayant ce n'est pas de modifier une sélection de données qui pose problème

le problème vient quand je supprime une case fusionée (1ligne, 2colonnes).

Bonjour

Sans fichier....

Sinon essayez ceci plutôt

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B5")) Is Nothing Then
    Sheets("Machine1").Range("B1").Value = Target.Value
End If
End Sub

Evitez les fusions de cellules si vous faites appel à VBA.

Cordialement

Merci beaucoup,

Désolé de ne pas avoir envoyé le fichier.