Sub déplacerligne()
Set LineToCopy = ActiveCell.EntireRow
Ouvrage = Range("A" & ActiveCell.Row)
With Sheets("Tab BIM")
fin = .Range("A" & .Rows.Count).End(xlUp).Row
Set ZoneData = .Range("A5:BA" & fin)
With ZoneData
Set c = .Find(Ouvrage, searchdirection:=xlPrevious, Lookat:=xlWhole)
If Not c Is Nothing Then
LigneDest = c.Row + 1
Else
LigneDest = fin + 1
End If
End With
LineToCopy.Copy
.Rows(LigneDest).Insert shift:=xlDown
End With
LineToCopy.Delete
End Sub