macros pour trouver les celulle commenté dans une plage

[SIZE=2][COLOR=blue]Sub[/COLOR] TestCommentaires()
[COLOR=blue]Dim[/COLOR] sh [COLOR=blue]As[/COLOR] Worksheet
[COLOR=blue]Dim[/COLOR] P [COLOR=blue]As[/COLOR] Range, C [COLOR=blue]As[/COLOR] Range
      Application.ScreenUpdating = [COLOR=blue]False
      For Each[/COLOR] sh [COLOR=blue]In[/COLOR] Sheets
            [COLOR=blue]If[/COLOR] sh.Visible = [COLOR=blue]True Then
                  On Error Resume Next[/COLOR]         [COLOR=green]'Valide la gestion d'erreur[/COLOR]
                  [COLOR=blue]Set[/COLOR] P = sh.Range("A1:Z58").SpecialCells(xlCellTypeComments)
                  [COLOR=blue]On Error GoTo[/COLOR] 0                     [COLOR=green]'Invalide la gestion d'erreur[/COLOR]
                  [COLOR=blue]If Not[/COLOR] P [COLOR=blue]Is Nothing Then[/COLOR]
[B]                         sh.Activate[/B]
                        [COLOR=blue]For Each[/COLOR] C [COLOR=blue]In[/COLOR] P
                              C[B].[COLOR=blue]Select[/COLOR][/B]
                              [B]Selection[/B].Locked = [COLOR=blue]False[/COLOR] [COLOR=green]' déprotection de la celulle commentée[/COLOR]
                              [B]Selection[/B].FormulaHidden = [COLOR=blue]False[/COLOR] [COLOR=green]' déprotection de la celulle commentée[/COLOR]
                        [COLOR=blue]Next[/COLOR] C
                        [COLOR=blue]Set[/COLOR] P = [COLOR=blue]Nothing
                  End If
            End If
      Next[/COLOR] sh
      Application.ScreenUpdating = [COLOR=blue]True
End Sub[/COLOR][/SIZE]