Bonjour à tous,

Voilà mon problème.

J'aimerai naviguer entre mes feuilles sans utiliser le nom de la feuille.
Du coup j'avais pensé utilisé une variable correspondant au numéro de ma feuille.

J'explique avec un exemple, voici ce qui marche :
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
Dim i As Integer
Dim cs As String, cellule_vs As String
Dim vs As Range
 
With Feuil1
 
For i = 4 To 44
 
cs = .Cells(i, 3).Value
 
Set vs = Feuil3.Cells.Find(cs)
cellule_vs = vs.Row
 
.Cells(i, 2).Value = Feuil3.Cells(cellule_vs, 3)
 
Next
End With
End Sub
Maintenant je voudrai remplacer Feuil1 par quelque chose comme :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
With Feuil & j
Où j serai une variable.

Merci d'avance pour vos nombreuses réponses