Effacer les plages

Bonjour,

je voudrais créer une macro qui effectue les fonctionnalités suivantes:
lorsque je commande la macro par un bouton sur la feuille3 ,elle doit:
1- supprimer une plage des cellules de la feuille 3
2-supprimer une autre plage des cellules de la feuille 2
3-supprimer une plage des cellules de la feuille 1
j'ai essayée le code suivant, mais il ne me donne pas les résultats souhaitées:

 With Worksheets("Export")
Range("B6:F" & Rows.Count).ClearContents
Range("B6:F" & Rows.Count).Interior.Color = RGB(255, 255, 255)


Call Module2.Effacerfeuil1

Call Module1.Effacerfeuil2

End With
End Sub 

pour le module 2 et 1,j'ai utilisé le même code ,le changement était seulement au niveau des plages.


prière de m'aider s'il veut plait,

cordialement,