Sub copierOK2()
Dim Sh As Worksheet, Origine As String
Origine = ActiveSheet.Name
For Each Sh In ThisWorkbook.Worksheets
If Sh.Visible = xlSheetVisible Then
Sh.Copy
ActiveSheet.Cells.Copy
ActiveSheet.[a1].PasteSpecial Paste:=xlPasteValues
ActiveWorkbook.SaveAs (Sh.Name), FileFormat:=51
ActiveWorkbook.Close
End If
Next Sh
Sheets(Origine).Activate
End Sub