Masquer des lignes Excel en fonction de leur couleur

Bonjour

Je suis nouveau sur ce forum!

J'ai un fichier qualité avec du matériel, beaucoup de matériel, dont certain a été mis au rebus; j'ai rempli chaque ligne de ce matériel en jaune car je ne veux pas supprimer ces lignes. Mais j'ai énormément de lignes affichés !

Je souhaiterai, avec un bouton, pouvoir masquer ces lignes "jaunes" et pouvoir ainsi n'avoir que mon matériel "actif" à l'écran.

De même, avec un autre bouton, ou le même avec un 2è clic, je souhaiterai faire réapparaitre ces lignes masquées si besoin.

Merci pour votre aide.

Salut et bienvenue sur le Forum,

Voici un code qui pourrait faire l'affaire. A adapter à tes besoins. Si tu as beaucoup de lignes, ça risque de ramer un peu

La prochaine fois, pense à fournir un fichier exemple.

Sub Masquer_Afficher()
Dim i As Integer

Application.ScreenUpdating = False

If Range("D1") = 1 Then
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        If Range("A" & i).Interior.Color = 65535 Then Range("A" & i).EntireRow.Hidden = True
    Next i
    Range("D1") = ""
Else
    Cells.EntireRow.Hidden = False
    Range("D1") = 1
End If

End Sub

Cordialement.

Salut à tous

Ca marche du tonnerre !

Je vous remercie pour cet excellent travail.

Désolé pour le retard dans ma réponse.

Macroamicalement