Bonjour Julien, le fil
Si j'ai bien compris... en supposant que lorsque la macro fonctionne, l'onglet [CA PCA Follow up] est actif !
Sub Recap()
Dim tabRecap()
Dim cptrecap
tabRecap = Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 4))
For cptrecap = 1 To UBound(tabRecap, 1)
With Worksheets(tabRecap(cptrecap, 1))
tabRecap(cptrecap, 2) = .Cells(5, 6)
tabRecap(cptrecap, 3) = .Cells(7, 6)
tabRecap(cptrecap, 4) = .Cells(7, 3)
End With
Next
Cells(2, 1).Resize(UBound(tabRecap, 1), UBound(tabRecap, 2)) = tabRecap
End Sub