Supprimer couleur de fond

Bonjour à tous,


Je n'arrive pas à supprimer la couleur des fonds de mes cellules que vous trouverez ci-joint.



pour trier mes cellules par couleur j'ai utilisé cette manipulation :

Sub Afficher_par_pays()


For feuille = 1 To Sheets.Count

Sheets(feuille).Activate

Finligne = ActiveSheet.UsedRange.Rows.Count + 1

Numeroligne = 2

While Numeroligne < Finligne

If Range("A" & Numeroligne).Value = "USA" Then Range("A" & Numeroligne, "F" & Numeroligne).Interior.Color = 255
If Range("A" & Numeroligne).Value = "Suisse" Then Range("A" & Numeroligne, "F" & Numeroligne).Interior.Color = 45768
If Range("A" & Numeroligne).Value = "Allemagne" Then Range("A" & Numeroligne, "F" & Numeroligne).Interior.Color = 65535
If Range("A" & Numeroligne).Value = "France" Then Range("A" & Numeroligne, "F" & Numeroligne).Interior.Color = 15773696

Numeroligne = Numeroligne + 1

Wend
Next feuille
End Sub

Merci pour votre aide,

Message modifié par la modération Pour une lecture plus facile du code, à l'avenir utilisez les balises, VOIR CETTE PAGE