Probleme redaction Macro

Bonjour a tous!!!

Aujourd'hui mon souci est le suivant:

Grace au forum et l'enregistreur, j'ai reussi a creer les codes suivants:

Private Sub acceuil_Click()
Sheets("Brute").Select
Sheets("Brute").Copy Before:=Sheets(5)
Sheets("Brute (2)").Select
Sheets("Brute (2)").Name = "FX"
End Sub

Ce code fait une copie d'une feuille appelee Brute et la renomme FX

Apres je voudrait travailler FX avec le code suivant ( il fonctionne!!)

Sub supp()
Columns("I").Replace "-", "--->", LookAt:=xlPart
Dim dl As Integer
Dim x As Integer

dl = Range("I65536").End(xlUp).Row
For x = dl To 1 Step -1
If Cells(x, 9).Value = "" Or Cells(x, 13) < 0 Then Rows(x).Delete
Next x
End Sub

Ce code supprime les ligne qui on la cellule de la colonne I vide et les ligne ayant des valeur negative dans la colone M.
Elle remplace aussi tout les "-" par des "--->" dans "I"


Mais j'ai beau tourner le probleme dant tous les sens, je n'arrive pas a faire en sorte de faire executer les deux macros grace au bouton qui me permet l'execution d'une macro.
Si je devais reformuler

J'aimerai qu'en un click Ma feuille FX se cree et directement apres que la macro qui supprime les ligne se lance.

Merci d'avance!!!!!

Sim