Bonjour je voudrais sélectionner des feuilles, leurs noms sont dans une feuille, un nom par cellules!

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
Sub repartir()
 
Dim j As Double
Dim m As String
 
 
For j = 0 To 7
 
    If Cells(4 + j, 2) <> "" Then
 
    m = Cells(4 + j, 2)
 
 
Worksheets(m).Select
 
 Else
 End If
 Next
End Sub
le problème doit venir du m parce que quand je remplace m par le nom de la feuille qui est dans la cellules ça marche...

Merci