bonjour,
au lieu de faire :
Sheets("Feuil1").Range("A" & i).Copy
Sheets("Feuil2").Range(("A" & u)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Faire :
Sheets("Feuil1").Range("A" & i).Copy
Sheets("Feuil2").Range(("A" &...