Voila, comme LooReeD me le conseillait j'ai décidé de supprimer la feuille avant de copier la nouvelle, et si celle ci n'existe pas, passer directement au collage de la nouvelle...
seulement lors de l'exécution, excel me renvoie "erreur d'execution 438, propriété ou méthode non gérée par cet objet"
je ne trouve pas l'erreur, si quelqu'un pouvait m'éclairer...
voici le début de la macro...
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim wb As Workbook
Set wb1 = Workbooks("2018 .xlsm")
Set wb2 = Workbooks.Open("C:\Users\JC\Desktop\CR2018.xlsx")
Windows("2018 .xlsm").Activate
Windows("CR2018.xlsx").Activate
If Sheets("Sem " & Workbooks("2018 .xlsm").Sheets("CR").Range("A3").Value) = True Then
Sheets("Sem " & Workbooks("2018 .xlsm").Sheets("CR").Range("A3").Value).Select
ActiveWindow.SelectedSheets.Delete
ElseIf Sheets("Sem " & Workbooks("2018 .xlsm").Sheets("CR").Range("A3").Value) = False Then
Windows("2018 .xlsm").Activate
wb1.Sheets("CR").Copy After:=wb2.Sheets(wb2.Sheets.Count)
Range("B16:Z64").Select
Selection.Copy
Merci