Bonjour/bonsoir

Pour mettre dans le contexte je débute en VBA (j'ai commencé aujourd'hui)

Je cherche à récupérer la valeur d'une cellule pour l'additionner à une variable.
Au moment d'additionner ma variable Cellule :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Range("A" & X & ":B" & X + Cellule - 1).Select 'le Problème est ici incompatibilité de type
j'ai un message d'erreur incompatibilité de type.

Je comprends mon problème et je m'y attendais car je veux additionner un Integer et un Range, mais je ne vois pas comment récupérer la valeur de ma cellule en Integer pour après l'additionner.

Merci d'avance pour votre aide

Ci-dessous mon code :
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
Sub Macro11()
 
Dim I As Integer
Dim X As Integer
Dim Cellule As Range
X = 2
 
For I = 1 To 9
 
    Sheets("Feuil2").Select
Set Cellule = Range("C2")
 
    Range("A" & I + 1 & ":B" & I + 1).Select
    Selection.Copy
 
    Sheets("Feuil1").Select
    Range("A" & X & ":B" & X + Cellule - 1).Select 'le Problème est ici incompatibilité de type
    ActiveSheet.Paste
 
X = X + Cellule 'et probablement ici aussi 
Next I
End Sub