Bonjour,

J'ai essayé d'appliquer les conseils de cette discussion, à savoir de supprimer tous les select, mais je bloque sur ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
    Sheets("Parametres").Cells.Copy
    Sheets("FAN").Select
    Cells.Select
    ActiveSheet.Paste
    Rows("1:2").Delete
Ca fonctionne.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
    Sheets("Parametres").Cells.Copy
    Sheets("FAN").Cells.Paste
    Rows("1:2").Delete
Ca ne fonctionne plus.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
    Sheets("Parametres").Cells.Copy
    Sheets("FAN").Cells.Select
    ActiveSheet.Paste
    Rows("1:2").Delete
Non plus...

Pourquoi donc ?
Pour tout le reste ça marche mais pas pour les collage...