Discussion :

[bibvba]

Bonjour,

je cherche a creer autant d'onglet que de cellules différente dans une colonne, puis renommer ces onglets comme les celulles.

[fring]

Bonjour,
Supposons pour la colonne A

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim i%
Application.ScreenUpdating = False
With Sheets(1)
For i = 1 To .Range("A65535").End(xlUp).Row
If .Cells(i, 1) <> "" Then
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = .Cells(i, 1).Value
End If
Next
End With
Application.ScreenUpdating = True
End Sub

@+

[bibvba]

merci beaucoup pour votre réactivité,
vous venez de m'enlever une sacréé épine de ma macro.

Merci encore