apres un find remplacer Cell.EntireRow.Value

With Sheets("feuil2")
    .Cells(200, "A").Resize(, 5).Value = _
    Cell.Offset(, -1).Resize(, 5).Value
    .Cells(200, "EA").Resize(, 8).Value = _
    Feuil1.Cells(Cell.Row, "EA").Resize(, 8).Value
End With

With Sheets("feuil2")
i = .Cells(Rows.Count, "A").End(xlUp).Row + 1
    .Cells(i, "A").Resize(, 5).Value = _
    Cell.Offset(, -1).Resize(, 5).Value
    .Cells(i, "EA").Resize(, 8).Value = _
    Feuil1.Cells(Cell.Row, "EA").Resize(, 8).Value
End With

Range("verif").Range("A:H")
'pour copier de feuille1 en feuille2 
feuil1.Range("verif").Range("A:H").Value= feuil2.Rows200.range("EA:EF")

 Sub CommandButton2_Click()
Dim Nom As String, Cell As Range, DC&
Dim x As Range, a As String, i As Integer
'Dim i As Integer
'Dim j As Integer
Dim prenon As String
Application.ScreenUpdating = False

Nom = InputBox("Veuillez Saisir le Nom de l'agent")

If Nom = "" Then
    MsgBox "Vous n'avez pas saisi de Nom d'un agent !!!", _
    "test de copie", vbExclamation
    Exit Sub
End If



i = Columns("B").Find(Nom, lookat:=xlWhole).Row
If Not x Is Nothing Then MsgBox (" Le nom " & " " & pass & " " & "n'a pas été trouvé "), vbExclamation: Exit Sub
MsgBox i
Sheets("test1").Range("A" & i & ":H" & i).Copy Destination:=Sheets("test2").Range("A1")
 Sheets("test1").Range("verif").Range("A" & i & ":F" & i).Copy Destination:=Sheets("test2").Range("EA1")

End Sub