Sub AjouterSheetWithName()
'Et la de quoi mémoriser la dernière ligne
Dim lngLastRow As Long
'On recherche la dernière ligne de la feuille tu devra choisir ta colonne et ta feuille
lngLastRow = Sheets("NomDeTaFeuille").Range("A65536").End(xlUp).Row
'on vérifie si la feuille existe
If Not SheetExist(CStr(lngLastRow)) Then
Sheets.Add After:=Worksheets(Worksheets.Count)
With ActiveSheet
.Name = CStr(lngLastRow)
.visible = xlSheetVisible
End With
Else
MsgBox "Cette feuille existe et ne peu donc pas être créée", vbInformation, ThisWorkbook.Name
End If
End Sub