Bonjour,

Un problème de plus, ce message d'erreur n'intervient qu'après avoir protégé la feuille, les cellules en question sont déverrouillées je n'y comprends rien !!!
feuille non protégée ça marche.
Merci de votre aide

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
24
25
26
27
28
29
30
31
32
    
    Sub Efface_catégorie_fonction() 'Efface la catégorie ou la fonction
    
    'catégorie
    
    For i = 2 To 4
    
        If ActiveSheet.OLEObjects("eva" & i).Object.Value = "" Then
        With ActiveSheet.OLEObjects("eva" & i).Object
            .BackColor = RGB(255, 255, 255)
            .SpecialEffect = fmSpecialEffectFlat
            .ShowDropButtonWhen = fmShowDropButtonWhenNever
        End With
            
        With ActiveSheet.OLEObjects("nb" & i).Object
            .BackColor = RGB(255, 255, 255)
            .SpecialEffect = fmSpecialEffectFlat
        End With
        Range("a29,c29").Select
        Selection.Font.ColorIndex = 2
      End If

Next
              
        If ActiveSheet.OLEObjects("eva2").Object.Value <> "" Then
        Range("a29,c29").Select
        Selection.Font.ColorIndex = 1
        End If
        
    
End Sub