Problème VBA chargement du fichier !!

Bonjour,

En mettant le programme suivant sous un programme déjà nommé "sub auto_open", mon fichier excel ne s'ouvre plus, et seul le haut du spreadsheet s'ouvre, le reste se charge avec le sablier...sans évoluer... comment faire SVP pour pouvoir revenir dans mon programme et le renommer ??? MERCI !!

Sub auto_open()

Dim plage As Range
Dim cl
Dim Target As Range

Set plage = Range("K4:Z300")
For Each cl In plage
If cl.Value = "A" Then
Rows(cl.Row).Interior.ColorIndex = 6
End If
Next cl

Dim plage2 As Range
Set plage2 = Range("J4:Z300")
For Each cl In plage2
If cl.Value = "P" Then
Rows(cl.Row).Interior.ColorIndex = 38
End If
Next cl

Dim plage3 As Range
Set plage3 = Range("L4:Z300")
For Each cl In plage3
If cl.Value = "G" Then
Rows(cl.Row).Interior.ColorIndex = 37
End If
Next cl

End Sub