Bonjour Sink
Tu pourrais peut-être faire quelque chose comme cela :
Sub Recap()
Set WsRecap = Sheets("Résumé entretien collab")
For i = 2 To Sheets.Count
WsRecap.Cells(i + 1, 1) = Sheets(i).Range("H14")
WsRecap.Cells(i + 1, 2) = Sheets(i).Range("H16")
WsRecap.Cells(i + 1, 3) = Sheets(i).Range("D17")
WsRecap.Cells(i + 1, 4) = Sheets(i).Range("D12")
WsRecap.Cells(i + 1, 5) = Sheets(i).Range("D13")
Next
End Sub
à condition que tes feuilles aient la même structure. Là je vois que dans ton recap, tu as mis en date entretien : date ancienneté.
Je ne me suis pas occupée du cadre pour le moment.
Vois déjà si cela peut t'aider.