Excel 2007

bonjour!ok je t'explique!j'ai utlise ce code:
Private Sub Worksheet_SelectionChange(ByVal Target _
As Excel.Range)
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 35
.EntireColumn.Interior.ColorIndex = 35
End With
End Sub
Pour selectionnner une cellule et que toute la ligne et colonne passe dans une autre couleur.

Mais quand j'ai ajoute ce code:Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Protection de toutes les feuilles du classeur à la fermeture
Const MotDePasseFeuille As String = "cowboys"
Call Protège_les_Feuilles(MotDePasseFeuille)
End Sub

Private Sub Protège_les_Feuilles(Optional MotDePasse As String)
' Active la protection de toutes les feuilles du classeur
'
' Arguments: MotDePasse [in] Mot de passe (chaine)
'
Dim wsh As Worksheet 'Feuille à protéger
Dim Mode_de_Calcul As Integer 'Mode de calcul initial (manuel, auto, semi-auto)
Dim Flg_Màj_Ecran As Boolean 'Etat initial de l'actualisation automatique de l'écran
'Arrêter l'actualisation automatique de l'écran et les calculs
Flg_Màj_Ecran = Application.ScreenUpdating
Mode_de_Calcul = Application.Calculation
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'Protéger toutes les feuilles
For Each wsh In Worksheets
If MotDePasse <> "" Then
wsh.Protect Password:=MotDePasse, DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
wsh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Next
'Restaurer le contexte initial
Application.ScreenUpdating = Flg_Màj_Ecran
Application.Calculation = Mode_de_Calcul
End Sub
Pour la verouillage automatique des cellules ça ne marche pas et ça affiche une erreur au niveau de la 3e ligne du code"Cells.Interior.ColorIndex = xlNone" et rien ne fonctionne plus coe avant!
Quelqu'un peut m'aider s.t.p!

Pardon je m'excuse j'ai oublie les boe manieres!Bonjour et merci pour votre aide!!

Merci!Mais ca n'a pas fonctionne!

j'ai même effacer le dernier code et j'ai active la protection de la feuille d'une manière simple mais ça affiche le même erreur!

Quel code as-tu utilisé dans selectionchange pour que ça ne fonctionne pas ?

je n'ai utilise aucun code!j'ai juste efface le 2e code que je vous ai montre auparavant et déprotéger la feuille ensuite j'ai modifie la couleur et après j'ai encore protégé la feuille e cela u ça encore plante!
NB:je suis doue en VB tout ces codes que je vous ai montre,je l'ai copie quelque part!

C'est bien ce que je t'ai dit : Il faut déprotéger la feuille avant de modifier la couleur (dans la procédure Worksheet_SelectionChange)