Changer nom de l'onglet automatiquement

Bonjour,



J'aimerais incorporé ceci dans ma formule : ="(" & DROITE(F8;4) & ")"

Formule : Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("F8")) Is Nothing Then: Exit Sub
test = Range("F8")
ActiveSheet.Name = test
End Sub

Dans le fond pour que le nom de l'onglet prenne seulement les 4 dernies caractères de la cellule F8