Bonjour à tous,

Une petite question qui va surement faire rigoler les plus avertis d'entre vous mais pour moi néophyte, c'est un casse tête!

Dans le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim a As Long
Dim Last_Row As Long
 
Last_Row = Range("A" & Rows.Count).End(xlUp).Row
SuiviTreso = "Suivi des comptes - 2013"
 
For a = 4 To 11
 
DateOPTréso = Workbooks(SuiviTreso).Sheets("T").Range("B" & a)
ClasseOPT = Workbooks(SuiviTreso).Sheets("T").Range("C" & a)
DateOPTRI = Workbooks("OPERATIONS_TBF").Sheets("Résultats").Range("C1")
 
    If Month(DateOPTréso) = Month(DateOPTRI) And Range("ClasseOPT").Value = "T Classique" Then
        Workbooks(SuiviTreso).Sheets("T").Activate
 
Set Plage = Columns("B:E").Rows(a)
        Plage.Select
        Selection.Copy
        Workbooks("OPERATIONS_TBF").Sheets("Trésorerie").Activate
        Range("B3").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    End If
  Next a
Tout se déroulait bien jusqu'à ce que je mette une seconde condition (And).
Quand je passe la souris sur "ClasseOPT", je vois que la variable a bien été prise en compte et renvoie à la bonne valeur.
Mais VBA me dit "erreur d'exécution 1004, La méthode 'Range' de l'objet _Global a échoué"

Je ne comprends pas trop pourquoi ça ne marche pas!
J'ai essayé d'autres trucs (avec et sans "", Cells(ClasseOPT)) etc mais rien de fonctionne...

Quelqu'un pourrait-il m'aider?

Merci par avance à tous les gentils contributeurs!

Flo