bug avec Interior.ColorIndex

[archi]

Bjr à tous,
j'ai un bug dans une macro à la ligne >>> .Interior.ColorIndex = xlNone
où est le problème ?
elle marchée bien jusqu'a présent !!
merci de m'aider
Bye

Option Explicit

Private Sub Worksheet_Activate()
'
Dim c As Range
Dim CFound As Range
Dim Adresse$
Dim Code As Range
'
  Application.ScreenUpdating = False
  With Range("G16:I115")
  .Interior.ColorIndex = xlNone

    For Each c In Application.Range("Code")
      Set CFound = .Find(what:=c.Text, LookIn:=xlValues, lookat:=xlWhole)
      If Not CFound Is Nothing Then
        Adresse = CFound.Address
        Do
          CFound.Interior.ColorIndex = c.Offset(0, 1).Interior.ColorIndex
          Set CFound = .FindNext(CFound)
        Loop While CFound.Address <> Adresse
      End If
    Next c
  End With
  Application.ScreenUpdating = True
End Sub

 

[youky(BJ)]

Re : bug avec Interior.ColorIndex

Bonjour Archi
La feuille ne serait-elle pas protégée.......???????

 

[archi]

Re : bug avec Interior.ColorIndex

tout à fait !!
protection otée, macro retrouvée !!

merci youky
bye