copier une ligne dans une autre feuille

Private Sub CommandButton1_Click()
 Dim Nom As String
 Dim Cell As Range

 Nom = InputBox("Veuillez Saisir le Nom")

 If Nom = "" Then
     MsgBox "Vous n'avez pas saisi de Nom !!!", vbExclamation
     Exit Sub
 End If

 Set Cell = Feuil1.Columns(1).Find(Nom, LookIn:=xlValues, lookat:=xlWhole)
 If Cell Is Nothing Then MsgBox (" Le nom " & " " & Nom & " " & "n'a pas été trouvé dans la liste du personnel "), vbExclamation: Exit Sub

  Cell.EntireRow.Copy
     Sheets("Agent").Select
     
     Rows("60:60").Select
     ActiveSheet.Paste
 End Sub

Option Explicit
Private Sub CommandButton1_Click()
    Dim Nom As String
    Dim Cell As Range
    Nom = InputBox("Veuillez Saisir le Nom")
    If Nom = "" Then
        MsgBox "Vous n'avez pas saisi de Nom !!!", vbExclamation
        Exit Sub
    End If
    Set Cell = Feuil1.Columns(1).Find(Nom, LookIn:=xlValues, lookat:=xlWhole)
    If Cell Is Nothing Then MsgBox (" Le nom " & " " & Nom & " " & "n'a pas été trouvé dans la liste du personnel "), vbExclamation: Exit Sub
    Sheets("Agent").Rows("60:60").Value = Cell.EntireRow.Value
End Sub

Sheets("Agent").Rows("60:60").Value = Cell.EntireRow.Value

If Cell Is Nothing Then MsgBox (" Le nom " & " " & Nom & " " & "n'a pas été trouvé dans la liste du personnel "), vbExclamation: Exit Sub

If Cell Is Nothing Then MsgBox (" Le nom " & Nom & " n'a pas été trouvé dans la liste du personnel"), vbExclamation: Exit Sub