Salut,
Voici un code fonctionnel :
Sub Hide_Line()
Dim i As Long
For i = 1 To 10
If Rows(i).Interior.Color = RGB(192, 192, 192) = True Then
Rows(i).EntireRow.Hidden = True
End If
Next i
End Sub
Pour l'explication du code :
Dim i as long : permet juste de définir la variable i dont on se sert dans le code
For i = 1 to 10 : dit a i de s'incrémenter de 1 a 10, dans notre cas, 1 représente la première ligne que tu souhaite vérifier et 10 la dernière. a toi de modifier a ton besoin.
If Rows(i).Interior.Color = RGB(192, 192, 192) = True Then : Vérifie la couleur de la ligne, et si la ligne est grise, execute l'action souhaiter
Rows(i).EntireRow.Hidden = True : Masque la ligne i