Bonjour, je n'y connais rien en VBA.
Mais en fouillant sur le net j'ai partiellement solutionné mon problème mais la je bloque.

Dans la colonne A d'un feuille, j'ai une liste de noms. Je souhaite créer pour chacun de ces noms une feuille portant ce nom et étant la copie d'un feuille nommé original.

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
Private Sub CommandButton1_Click()
 
Dim z As Integer
Dim shessai2 As Worksheet
 
For z = 1 To Range("A65536").End(xlUp).Row
 
If Not IsEmpty(Cells(z, 1)) Then
  If Not exist_f(Cells(z, 1)) Then
    Set copie = Sheets.Add(After:=Sheets(Sheets.Count))
 
    copie.Name = Cells(z, 1).Value
 
  End If
End If
 
Next z
End Sub
 
 
Function exist_f(feuille)
For Each sh In Sheets
  If sh.Name = feuille Then
    exist_f = True
    Exit Function
  End If
Next
exist_f = False
End Function
Mon essais permet juste de créer une feuille par nom mais je n'arrive pas à copier le contenu de l'original dans chaque feuille.
Merci pour votre aide.