Activer mode copier/coller

Salut,

J'ai réalisé une macro pour afficher un message d'alerte sur une feuille (CT) quand une donnée est sélectionnée sur une liste déroulante. J'ai plusieurs tableaux dans la même feuille. Le message s'affiche qu'une seule fois, d'où l'utilisation de cette macro. Cependant je ne peux pas utiliser le copier/coller sur ma feuille quand j'applique la macro. Pouvez-vous m'aider à ce sujet ? Merci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Message d'alerte shift 2x8 Tableau PHB

If Range ("J3") = "2x8" Then

'Cellule Z3 dans Feuille CT

If Cells (3, 26) <> "OK" Then

MsgBox "N'oubliez pas d'utiliser les taux en 2x8", vbExclamation, "Alerte Shift PHB"

Cells (3, 26) = "OK"

End If

Else

Cells(3, 26).Clear

End If

'Message d'alerte shift 2x8 Tableau PDB

If Range ("J12") = "2x8" Then

'Cellule Z4 dans Feuille CT

If Cells(4, 26) <> "OK" Then

MsgBox "N'oubliez pas d'utiliser les taux en 2x8", vbExclamation, "Alerte Shift PDB"

Cells(4, 26) = "OK"

End If

Else

Cells(4, 26).Clear

End If

'Message d'alerte shift 2x8 Tableau Essai

If Range("J29") = "2x8" Then

'Cellule Z5 dans Feuille CT

If Cells(5, 26) <> "OK" Then

MsgBox "N'oubliez pas d'utiliser les taux en 2x8", vbExclamation, "Alerte Shift Essai"

Cells(5, 26) = "OK"

End If

Else

Cells(5, 26).Clear

End If

Bonjour,

Si l'une ou l'autre des 3 conditions est réunie, ton message risque de s'afficher à répétition à chaque mouvement !