Bonjour à tous,
Voilà mon code simplifié :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Dim feuille As Variant
Dim f1, f2, f3, f4 As Worksheet
Set f1 = Worksheets("Eric")
Set f2 = Worksheets("Chrystelle")
Set f3 = Worksheets("Mathieu")
Set f4 = Worksheets("Daniel")
For Each feuille In Array(f1, f2, f3, f4)
    Worksheets("mafeuille").Range(i,j).Value = feuille.Name
Next
En gros, je veux inscrire dans une cellule le nom de la feuille. Mais la fonction .Name n'est pas dispo pour un Variant... Comment puis-je faire ?
Merci d'avance.