Supprimé boite de dialogue ???

Bonjour a tous et a toute

Âpres plusieurs essai sans succès je me tourne vers vous et je voudrais savoir s'il est possible de supprimé la boite de dialogue qui ce trouve après avoir cliquet sur le bouton en feuil1 je dit supprimer en fait je veux dire que l'action enregistré ce fasse sans que la boite de dialogue ne s'ouvre

Exemple dans mon fichier joint

Par avance merci pour l aide que vous pouvais m'amener

Bonjour

A essayer

Sub Bouton1_Cliquer()
Sheets(Array("Renseignement EDL Entrant", "Etat des Lieux Entrée", "Etat des Lieux Entrée 1", "Etat des Lieux Entrée 2")).Copy
Application.DisplayAlerts = False
ThisWorkbook.Close
End Sub

Re

je viens d appliquer ton code et apparemment ça ne fonctionne pas , l’enregistrement ne ce fait pas , car incrémentation qui normalement ce fait en H18 et H19 sur les copie , après le bouton ne ce fait pas ???? contrairement au premier fichier joint

Si tu a une autre solution je suis preneur en tout cas merci quand même

Cordialement

Bonjour

Testes

Sub Bouton1_Cliquer()
Sheets(Array("Renseignement EDL Entrant", "Etat des Lieux Entrée", "Etat des Lieux Entrée 1", "Etat des Lieux Entrée 2")).Copy
ThisWorkbook.Close SaveChanges:=True
End Sub

Re

y a pas a dire vraiment au top

Merci encore Banzai64

Je clôture

Cordialement