Dim classeurSource As Workbook, classeurDestination As Workbook
Dim sh As Worksheet
Application.ScreenUpdating = False
'ouvrir le classeur source (en lecture seule)
Set classeurSource = Application.ThisWorkbook
'définir le classeur destination
Set classeurDestination = Application.Workbooks.Open("\\Fru1fic2\fru2scplog\Dossiers de travail\01 - Organisation Matériel\Plasma\Performances LOG 2012.xls", , False)
For Each sh In Worksheets
With sh
'copier les données de la "Plasma" du classeur source vers la "Plasma" du classeur destination
classeurDestination.Sheets("sh").Range("A1:M40") = .Range("A1:M40").Value
End With
Next sh
'fermer et sauvegarder le classeur destination
classeurDestination.Save
classeurDestination.Close False
Application.ScreenUpdating = True