VBA: Insérer une ligne après une ligne recherchée

Bonjour à tous,

Je me permets de poster une nouvelle question puisque je n'ai pas trouvé mon bonheur dans ce qui a déjà été posté...

Je cherche à écrire un code qui me permet de:

• Rechercher dans la 1e colonne d'une feuille une valeur donnée
• Insérer une ligne en dessous de cette cellule

Jusqu'à présent, j'ai réussi à renvoyer la cellule où se trouve la valeur que je recherche, mais je n'arrive pas à la sélectionner pour insérer une ligne en dessous:

Sub newmonth()

Dim Trouve As Range, Valeur_Cherchee As String, AdresseTrouvee As String

Dim PlageDeRecherche As Range

Valeur_Cherchee = Range("lastmonth").Value

Set PlageDeRecherche = Sheets("1. Traffic Data").Columns(1)

Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)

AdresseTrouvee = Trouve.Address

Range("AdresseTrouvee").Select

ActiveCell.EntireRow.Insert Shift:=xlDown

End Sub

Auriez-vous s'il vous plait une petite piste pour m'aider ?!

Merci d'avance

Bonjour et bienvenu(e)

A tester

Sub newmonth()

Dim Trouve As Range, Valeur_Cherchee As String, AdresseTrouvee As String
Dim PlageDeRecherche As Range

  Valeur_Cherchee = Range("lastmonth").Value
  Set PlageDeRecherche = Sheets("1. Traffic Data").Columns(1)
  Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
  If Not Trouve Is Nothing Then
    Rows(Trouve.Row + 1).Insert
  Else
    MsgBox "Pas trouve"
  End If

'  AdresseTrouvee = Trouve.Address
'
'  Range("AdresseTrouvee").Select
'  ActiveCell.EntireRow.Insert Shift:=xlDown

End Sub