Supprimer couleur des cellules

Bonjour à tous,

Je n'arrive pas à supprimer les couleurs de mes cellules ci dessus:



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 = "Maroc" 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