pb résolu !
il faut mettre "Sheets(Nomfeuille).Range("A1:" & Dercol & nbligne).Select" au lieu de "Selection = Sheets(Nomfeuille).Range("A1:" & Dercol & nbligne).Select " pour enlever les valeurs vrai des cellules copiées.
et le coller a été résolu par la commande :
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False
merci beaucoup,
jassserin