copier le resultat d'une recherche

[monot]

Bonjour,
J'ai une macro qui me permet de trouver dans la colonne D le mot que j'ai mis en A1.

Sub find()

Dim lemot As String
lemot = Range("A1")
Dim FoundCell As Range
Set FoundCell = Range("d:d").find(what:=lemot)

If Not FoundCell Is Nothing Then
FoundCell.Select
End If
End Sub

Je souhaiterai pouvoir copier une plage de cellule suite au resultat trouvé.
Par exemple, cette macro me permet de trouver le mot et se positionne en B2. Je voudrais copier la plage c3:e3 (qui se trouve sur une autre feuille) dans la cellule trouvée B2 à d2
Merci

 

[Gorfael]

Re : copier le resultat d'une recherche

Salut monot
Sub find()

Dim lemot As String
lemot = Range("A1")
Dim FoundCell As Range
Set FoundCell = Range("d:d").find(what:=lemot)

If Not FoundCell Is Nothing Then
Sheets("Feuil2").Range("C3:E3").Copy Destination:=FoundCell
End If
End Sub

A+