Récupérer le nom de la dernière feuille pour la comparer

Bonsoir le forum et meilleurs voeux !

Je bloque sur un sujet d'où mon appel à votre aide :

Via VBA, je génère la copie d'une feuille avec ses données.
Dans la feuille générée, étant la dernière à droite, celle-ci à comme valeur le Nom de la personne et la date du jour.
Comme ceci : NOM-09 janv
De ce côté, c'est OK.

Cependant, si je génère une nouvelle feuille le jour-même, bien évidemment j'ai une erreur, puisqu'il est impossible d'avoir 2 feuilles avec le même nom.

Au moment de générer une seconde feuille le jour-même, il faudrait que je trouve une astuce pour qu'elle soit toujours sous la forme NOM-09 janv en ajoutant par exemple (2).

Mais je ne trouve pas la solution pour que le code ajoute (2) si la feuille générée a déjà le même nom que la dernière feuille de droite...

Voici le code complet :

Sub Copie_Colle_Fiche()

    Sheets("VIERGE").Visible = True
    Range("P4").Value = Now

'Date manuelle :
'If Range("P4").Value = "" Then
'    MsgBox "Champ [Date] obligatoire", vbExclamation
'    Range("P4").Interior.Color = 255
'Else
'    Range("P4").Interior.Color = RGB(255, 255, 255)
'End If

If Range("A6").Value = "" Then
    MsgBox "Champ [Description de l'ICP] obligatoire", vbExclamation
    Range("A6").Interior.Color = 255
Else
    Range("A6").Interior.Color = RGB(255, 255, 255)
End If

If Range("A13").Value = "" Then
    MsgBox "Champ [Solution proposée] obligatoire", vbExclamation
    Range("A13").Interior.Color = 255
Else
    Range("A13").Interior.Color = RGB(255, 255, 255)
End If

If Range("A6").Value = "" Or Range("A13").Value = "" Then
Exit Sub
End If

If Range("A6").Value <> "" And Range("A13").Value <> "" Then
    Sheets("VIERGE").Copy After:=Sheets(Sheets.count)
    ActiveSheet.Name = Left([D4], InStr(1, [D4], " ") - 1) & "-" & Format(Date, "dd mmm")
    Columns("AC:AR").Select
    Selection.EntireColumn.Hidden = True
    Columns("AT:BG").Select
    Selection.EntireColumn.Hidden = False
    Range("B2").Select
    Sheets("VIERGE").Range("P4") = ""
    Sheets("VIERGE").Range("A6") = ""
    Sheets("VIERGE").Range("A13") = ""
End If

Et le code concernant ma requête :

If Range("A6").Value <> "" And Range("A13").Value <> "" Then
    Sheets("VIERGE").Copy After:=Sheets(Sheets.count)
    ActiveSheet.Name = Left([D4], InStr(1, [D4], " ") - 1) & "-" & Format(Date, "dd mmm")

Merci d'avance, le forum !