re,
à tester,
Sub Bouton4_Cliquer()
Dim F As Object
Dim P As Object
Dim sh As Object
Dim wk1 As Workbook, wk2 As Workbook
Set wk1 = Workbooks("Formulaire tableau des projets.xlsm")
Set wk2 = Workbooks("Tableau des projets.xlsx")
col = Array(1, 2, 3, 16, 17)
Set F = wk1.Sheets("RENTREE")
For i = 10 To F.Cells(Rows.Count, 1).End(xlUp).Row
Set sh = wk2.Sheets(F.Cells(i, 6).Value)
rw = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
For j = 1 To 5
sh.Cells(rw, col(j - 1)) = F.Cells(i, j).Value
Next j
Next i
End Sub