Bonjour,

J'ai un souci dans le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
    Sheets("LISTE").Select
    NOM1 = Range("D8")
    Range("E8").Select
    Selection.Copy
 
    Sheets("" & NOM1 & "").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
Ce code marche jusqu'a la selection de la cellule B3. J'ai une erreur qui me dit que la méthode select de la classe range a échoué. Or, je ne comprend pas je demande simplement la selection d'une cellule pour pouvoir y coller une valeur.
Si vous avez des idées merci