Il semble que tu te soit tromper en reprenant la modif find
il faux remplacer set nom....
Sub remplir(cellule)
Set nom = Sheets(2).UsedRange.Columns(1).Find(what:=cellule.Value, lookat:=xlWhole)
If Not nom Is Nothing Then
Set zone = Sheets(2).Range(Sheets(2).Cells(nom.Row, 2), Sheets(2).Cells(nom.Row, 5))
zone.Copy
cellule.Offset(0, 1).PasteSpecial (xlValues)
End If
End Sub