Sub aaa()
Dim NomFic$, NomFicX$
NomFic = "AtestesXXX.xlsx"
NomFicX = Split(NomFic, ".")(0)
MsgBox Teste(NomFicX, "^\A\w{6}\XXX$", "Unique"), vbInformation, NomFic
NomFic = "BtestesXXX.xlsx"
NomFicX = Split(NomFic, ".")(0)
MsgBox Teste(NomFicX, "^\A\w{6}\XXX$", "Unique"), vbCritical, NomFic
End Sub