copier une feuille vers divers classeurs

Bonjour tout le monde j ai essaie ce module pour copier une feuille modifiee dans divers classeurs suivant module suivant. Sub test() Dim Fso As Object, MonRepertoire As String Dim f1 As Object, f2 As Object, WB As Workbook Dim ClasSou As Workbook, ClasBis As Workbook Dim i As Byte Set Fso =...