Sub Test()
Dim Valeur1 As String, Valeur2 As String
Dim C As Range, D As Range
Valeur1 = InputBox("Veuillez saisir le Numero de la ligne à copier.", "RECHERCHE LIGNE DE DEPART") 'ligne de depart(ca marche)
Set C = Worksheets("Feuil1").Columns(1).Find(Valeur1, , xlValues, xlWhole)
If Not C Is Nothing Then
With Worksheets("Feuil2")
Valeur2 = InputBox("Veuillez saisir le numéro de la ligne d'arrivée.", "RECHERCHE LIGNE D'ARRIVEE") 'ligne d'arrivée (ca marche pas)
Set D = Worksheets("Feuil2").Columns(1).Find(Valeur2, , xlValues, xlWhole)
If Not D Is Nothing Then
C.Resize(1, 7).Copy .Cells(D.Row, "B")
.Activate
End If
End With
End If
End Sub