Sub copierOK()
Dim Sh As Worksheet, Origine As String
Origine = ActiveSheet.Name
For Each Sh In ThisWorkbook.Worksheets
If Sh.Visible = xlSheetVisible Then
Sh.Copy
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
ActiveWorkbook.SaveAs (Sh.Name), FileFormat:=51
ActiveWorkbook.Close
End If
Next Sh
Sheets(Origine).Activate
End Sub