Bonjour,
Je suis novice en VB.
Voilà je cherche à copier x feuille en fonction de x valeurs de cellules.
La fonction qui suit fonctionne pour une feuille mais la fonction d'après avec boucle me donne erreur 13 (incompatibilité de type)

Quelqu'un pourrait-il m'aider ?

Merci

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
 'copy feuille et renomme la nouvelle feuille
Function CopyFeuille(NomFeuille As String, NewFeuille As String) As Boolean
   Sheets(NomFeuille).Select
   Sheets(NomFeuille).Copy After:=Sheets(ThisWorkbook.Sheets.Count)
   ActiveSheet.Name = NewFeuille
   CopyFeuille = True
End Function
 
 
 'copy feuille et renomme la nouvelle feuille avec une boucle
 Function Copy_Feuille(NomFeuille As Range, NewFeuille As Range) As Boolean
    For x = 1 To 12
      If NomFeuille.Cells(x, 1) = "" Then Copy_Feuille = True
      If NomFeuille.Cells(x, 1) <> "" Then Sheets(NomFeuille.Cells(x, 1)).Select
        'Sheets(NomFeuille.Cells(x, 1)).Copy After:=Sheets(ThisWorkbook.Sheets.Count)
        'ActiveSheet.Name = NewFeuille
    Next x
 End Function