Merci Optimix pour la réponse sauf je voulais qui il me coupe les données juste il prenne une copie.
Y a t il une solution pour supprimer la date d'aujourd'hui s'il existe puis on recopie le tableau sans intervention manuelle pour supprimer dans le code suivant?
If ws2.Range("A" & nL2) = Date Then
MsgBox "L'historique a déjà été saisi pour aujourd'hui. Si vous voulez le remplacer vous devez d'abord supprimer les enregistrements de ce jour dans la feuille [archive].", vbCritical + vbOKOnly, "STOP"
Exit Sub
End If
Merci!