Supprimer message d'info Excel

Bonjour,

Grace a mon code j'importe une base de donnees se trouvant sur un fichier externe.

Cette feuille excel du fichier externe doit ecraser les donnees se trouvant dans mon fichier actuel:

    Dim wb As Workbook
    Dim ws As Worksheet
    Dim WOuvert As Boolean
    WOuvert = False
    For Each wb In Workbooks
        If wb.Name = "datenbank_checkliste.xlsx" Then
            WOuvert = True
            Exit For
        End If
    Next
    If WOuvert = False Then
        Set wb = Workbooks.Open(location_database)
        Else
        Set wb = Workbooks("datenbank_checkliste.xlsx")
        wb.Save
    End If
    Set ws = wb.Worksheets("basedonnees")

    ws.Cells.Copy
    Workbooks(workbook_name).Sheets("datenbank").Activate

    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

Le probleme est que lorsque je lance ce code, un message d'information me demandant si mes cellules doivent bien etre ecrasees s'affiche. (cf piece jointe en allemand)

Sachant que je veux systematiquement ecraser ces donnees, comment faire pour que ce message ne s'affiche pas?

Avez vous une idee?

Bonjour

Avant la copie

Application.DisplayAlerts = False

Après la copie (si ta macro n'est pas finie)

application.DisplayAlerts =true