Bonjour à toutes et tous, bonnes fêtes de fin d'années.

J'ai un problème avec cette macro qui fonctionne parfaitement depuis 7 mois et voilà qu'aujourd'hui

ça ne fonctionne plus, surlignage jaune sur ActivSheet.Paste ?????

Si quelqu'un a la solution je le remercie par avance.

Sub Copier()
'
' Copier Macro
' Macro enregistrée le 18/05/2007 par MARCEL Thierry
'

'
Selection.Copy
ActiveSheet.Paste
Rows("2:2").Select
Sheets("Enveloppe").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Adresses").Select
Range("A2:I2").Select
Selection.ClearContents
Range("A1").Select
End Sub

Bonsoir à tous

Bonsoir Thierry65

Je pense qu'entre les lignes :

Selection.Copy

et

ActiveSheet.Paste

il te manque la ligne où tu dois copier (effacement malencontreux...)