Effacer si le fond de la cellule est de couleur

Bonjour a tous

Sub efface_tout_les_nombre()
Application.ScreenUpdating = False
                Feuil2.Visible = xlSheetVisible
                Feuil2.Select
               Feuil2.unprotect "......"
For Each vcel In Range("L2: U200")
    If vcel.Interior.Color = RGB(217, 217, 217) Or RGB(197, 217, 241) Or RGB(230, 184, 183) Or RGB(196, 215, 155) Then
    vcel.Value = ""
End If
Next vcel
    Feuil2.protect "......"
    Feuil2.Visible = xlSheetVeryHidden
Application.ScreenUpdating = True
End Sub

dans le code ci dessus je cherche a effacer les données qui sont sur une feuille masquée et proteger par mot de passe ,dans les cellules colorées mais uniquement les cellules avec le fond colorées car cela m'efface aussi les cellules en fond blanc avec une formule

de plus le code est très long a exécuter

merci a tous

Bonjour,

le code comme ceci

Sub efface_tout_les_nombre()
Dim vcel As Range
Application.ScreenUpdating = False
With Feuil2
    .Visible = xlSheetVisible
    .Unprotect "......"
    For Each vcel In .Range("L2:U200")
        With vcel.Interior
            If .Color = RGB(217, 217, 217) Or .Color = RGB(197, 217, 241) Or .Color = RGB(230, 184, 183) Or .Color = RGB(196, 215, 155) Then
                vcel.ClearContents
            End If
        End With
    Next vcel
    .Visible = xlSheetVeryHidden
    .Protect "......"
End With
Application.ScreenUpdating = True
End Sub

de plus le code est très long a exécuter

Là il faut savoir s'il n'y a pas d'autres infos dans les cellules non en couleur. Il faudrait presque voir le fichier ou la feuille pour analyser

Oubliez pas de cloturer le fil une fois terminé

Cordialement

Bonsoir Dan

merci tout fonctionne

amicalement