Bonjour le Forum,

je viens vous demander comment modifier le code ci-dessous qui, actuellement ne sélectionne que la 1 ère de ces 6 feuilles, pour qu'il sélectionne toutes les feuilles dont les noms figurent dans les cellules indiquées.
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
26
27
28
29
30
Sub Feuille_sélectionner()
'
' Feuille_sélectionner Macro
'
 
'
    If [AH11] <> "" Then
    Feuil8.Select
    End If
 
    If [AH12] <> "" Then
    Feuil9.Select
    End If
 
    If [AH13] <> "" Then
    Feuil10.Select
    End If
 
    If [AH14] <> "" Then
    Feuil11.Select
    End If
 
    If [AH15] <> "" Then
    Feuil12.Select
    End If
 
    If [AH16] <> "" Then
    Feuil13.Select
    End If
End Sub
Remerciements pour vos réponses.
Bonne journée.
cordialement.

Nonno 94.