VBA Excel Supprimer cellule dans une colonne

Bonjour,


J'essais de supprimer le contenu d'une cellule dans ma colonne A mais je ne réussi pas à le trouver et le supprimer. J'ai fais plusieurs test mais je supprime juste l'entré dans la cellule A2 qui est pas celle que j'avais demander.... Est-ce qu'il y a quelqu'un qui peut m'aider....

voici mon code. Merci d'avance.

Private Sub FB_Supprimer_Click()

Dim Recherche As String
Dim celluletrouvee As Range
Dim ligne As Integer

Set celluletrouvee = Range("A1:A150").Find(Recherche, LookIn:=xlValues, lookat:=xlWhole)

If (FC_Nom.Value <> "") Then

If celluletrouvee Is Nothing Then
MsgBox ("Pas Trouvé")
Else
ligne = celluletrouvee.Row
celluletrouvee.Select
ActiveCell.ClearContents
End If
Else
MsgBox "Ça prend un nom d'un pooleur"
End If
End Sub