Bonjour le forum

Sur ce forum, on m'avait donné le code suivant qui marche très bien mais qui pose juste un petit souci. Le souci se pose lorsque je veux copier une case et puis coller dans une autre case. Le fichier se bloque et je ne peux plus rien faire. Pourquoi ce problème? Y a-t-il une solution pour palier à ce problème?
Sachant que j'ai testé la même macro sur excel 2010 et il n'y a pas d'erreur.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Worksheet_Change(ByVal Target As Range)
 
Application.ScreenUpdating = False
 
If Intersect(Target, [$D$4:$GB$42]) Is Nothing Then Exit Sub 
 
    For Each Cel In Target 
 
        Set Cel_R = Sheets("Feuil1").[$B$2:$B$33].Find(Cel, LookIn:=xlValues, LookAt:=xlWhole) 
 
            If Cel_R Is Nothing Then
                Cel.Interior.ColorIndex = xlNone 
 
            Else
        Cel.Interior.ColorIndex = Cel_R.Interior.ColorIndex 
        Cel.Font.ColorIndex = Cel_R.Font.ColorIndex 
        Cel.Font.Bold = Cel_R.Font.Bold 
 
            End If
 
    Next Cel
 
End Sub
Merci d'avance pour votre aide

Cordialement