Salut,

Impeccable ca fonctionne trés bien.

Ci joint le code permettant de même de sauvegarder la nouvelle feuille (en insérant la date du rapport dans le nom) et de la fermer :

Private Sub CommandButton1_Click() 'copie sauvegarde rapport
Dim wk As Workbook
Dim ws As Worksheet

    Set wk = Workbooks.Add(xlWBATWorksheet)
    Set ws = ThisWorkbook.Worksheets("Cond_Ope_Fuerzas")
    ws.Copy After:=wk.Sheets(Sheets.Count)
    
Dim nom, chemin As String
    nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & ActiveSheet.Name
    chemin = Workbooks("Prog_Extraccion_datos").Path & "\" & nom
    ActiveWorkbook.ActiveSheet.SaveAs Filename:=chemin
    rep = MsgBox("El reporte de Fuerzas ha sido guardado en : " & nom, vbYes + vbInformation, "Guardar el reporte")
    ActiveWorkbook.Close
End Sub