Const rep = "C:\" 'repertoire

Sub copiervaleursem2() 'macro 2nd semestre
    Set sws = ActiveSheet
    Set wb = Workbooks.Open(rep & sws.Range("a1") & ".xlsx")
    sws.Copy after:=wb.Sheets(1)
    Set wsc = ActiveSheet
    wsc.UsedRange.Value = wsc.UsedRange.Value 'remplacer les formules par leur résultat
    wb.Close True
End Sub

Sub copiervaleursem1() 'macro 1er semestre
    ActiveSheet.Copy 'créer un nouveau classeur avec une copie de la feuille active
    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value 'remplacer les formules par leur résultat
    ActiveSheet.SaveAs rep & [A1] & ".xlsx", FileFormat:=51
    ActiveWorkbook.Close
End Sub

Sub copiervaleursem3() 'macro Total
    Set sws = ActiveSheet
    Set wb = Workbooks.Open(rep & sws.Range("a1") & ".xlsx")
    sws.Copy after:=wb.Sheets(2)
    Set wsc = ActiveSheet
    wsc.UsedRange.Value = wsc.UsedRange.Value 'remplacer les formules par leur résultat
    wb.Close True
End Sub