Aide sur une macro de rajout de ligne

Bonjour le fórum,

J´ai essayé de creer une macro comme ceci:

Sub Macro1()

'

' Macro1 Macro

'

'

Columns("C:C").Select

Range("C3523").Activate

Selection.Find(What:="lead#", After:=ActiveCell, LookIn:=xlFormulas, _

LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _

MatchCase:=False, SearchFormat:=False).Activate

End Sub

En gros, je veux que la macro cherche dans la colone C tous les champs contenant " #LEAD", et qu´elle rajoute une ligne au dessus de la ligne contenant le champs en question, et cela pour tous.

Merci d´avance (:

bonsoir,

ci-dessous code

Sub macro1()

    Dim cell_cherchée As Range, cell_cherchée1 As Range

    Set cell_cherchée = Columns("C:C").Find("lead#", SearchDirection:=xlNext)
    If Not cell_cherchée Is Nothing Then
          Set cell_cherchée_1 = cell_cherchée
          Do
            cell_cherchée.EntireRow.Insert
            Set cell_cherchée = Columns("C:C").Find("lead#", After:=cell_cherchée)
          Loop Until cell_cherchée.Address = cell_cherchée_1.Address

    End If
End Sub