With Feuil5.Range("P:P")
Set c = .Find(nu, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
ii = c.Row
If Feuil5.Range("A" & ii).Value = Val(numé) Then
ds = c.Row
Else
Set c = .FindNext(c)
End If
Loop While Not c Is Nothing And Feuil5.Range("A" & ii).Value = Val(numé)
End If
End With