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
Selection.Copy
Sheets("Agent").Select
Rows("60:60").Select
ActiveSheet.Paste
End Sub