Bonjour,

Je rencontre un petit problème avec ce code. Desfois il marche et des fois il ne marche pas et j'ai le message d'erreur:
Erreur d'exécution '1004': La méthode Select de la classe Range a échoué.
Je ne comprend vraiment pas ... Le code permet de copier une plage de cellules a partir de la premiere colonne dispo dans une autre feuille.
Pouvez vous m'aider ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 Dim WsS As Worksheet
 Dim WsC As Worksheet
     Set WsS = Worksheets("Analyse BAAN-SAPHIR"): Set WsC = Worksheets("Analyse")
     WsS.Range("B3:L7000").Copy
     WsC.Cells(4, WsC.Cells(4, Columns.Count).End(xlToLeft).Column + 1).Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
     Set WsS = Nothing: Set WsC = Nothing