XL 2013 derniere cellule d'une colonne

[PIERRE02]

Bonjour
Comment sur un tableau sélectionner en VBA la dernière cellule non vide d'une colonne( excolonne B )et récupérer le contenu de cette cellule pour nommer un nouvel onglet.
merci de votre aide

 

[vgendron]

Bonjour
avec ceci

Sub ajoutfeuille()
Nomfeuille = Range("B" & Rows.Count).End(xlUp)
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Nomfeuille
End Sub

 

[PIERRE02]

merci de ta réponse rapide mais sauf erreur de ma part cela ne fonctionne pas
je joins un fichier pour mieux expliquer ce que je veux
j'ai besoin que la dernière cellule de la colonne B crée une feuille qui aurait pour nom "formule 10"

 

[vgendron]

Cela fonctionne à condition que le nom récupéré ne soit pas un espace....
tes cellules B13 à B20 contiennent un espace...

pour t'en convaincre

Sub ajoutfeuille()
NomFeuille = Range("B" & Rows.Count).End(xlUp)
MsgBox "la feuille qui va etre créée s'appelle:""" & NomFeuille & """"
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = NomFeuille
End Sub

 

[PIERRE02]

Exact
merci beaucoup
bonne journée