Sub Copier_coller()
Dim derlig As Long, premlig As Long, tableau As Range
derlig = Cells(Rows.Count, "P").End(xlUp).Row
premlig = [O:P].Find("NOM DE L'OUVRAGE*", , xlValues, , , xlPrevious).Row
Set tableau = Cells(premlig, "O").Resize(derlig - premlig + 1, 11)
tableau.Copy Cells(derlig + 4, "O")
'mise à jour
Cells(derlig + 5, "P") = ""
Cells(derlig + 6, "V") = ""
Cells(derlig + 8, "Y") = ""
Cells(derlig + 9, "P").Resize(derlig - premlig - 7).ClearContents
Cells(derlig + 9, "R").Resize(derlig - premlig - 7).ClearContents
End Sub