Sub Recherche_PN_existant()
Dim LastLig1 As Long
Dim c As Range
Dim firstAddress As String
V1 = Range("E1").Value
With Sheets("Feuil1")
LastLig1 = .Cells(Rows.Count, 1).End(xlUp).Row
Set c = .Range("A1:A" & LastLig1).Find(V1, LookAt:=xlWhole) 'Cherche la Valeur Exacte
If c Is Nothing Then
MsgBox "Inconnu"
Else
MsgBox c.Address
Range(c.Address).Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
End If
End With
End Sub