Nom onglet = 30 premiers caractères de la cellule

Bonjour,

Je souhaite créer un code à ajouter à ma macro afin que le nom de mon onglet soit égal à la valeur d'une cellule B7. Mais les informations de la cellule B7 peuvent être supérieur au nombre de caractère autoriser pour un onglet. Ainsi je voudrai que mon code soit du style:

nom onglet = 30 premiers caractère de la cellule B7. J'ai vu qu'il existe un terme "Characters" dans la liste des codes macro mais je ne sais pas trop comment formuler mon code.

Voici un extrait de mon code d'origine:

ActiveSheet.Name = Range("B7").value

Mais quand je suis tombé sur un message d'erreur car les caractères de ma cellule B7 étaient supérieurs à 31, j'ai pensé à ceci:

If Range("B7").Value = "FRANCE-DOLLAR RENT A CAR SYSTEM INC" Then
ActiveSheet.Name = "FRANCE-DOLLAR RENT A CAR SYSTEM"
Else: ActiveSheet.Name = Range("B7").Value
End If

Bémol, avec un tel code, à chaque nouveau nom dans ma cellule B7, il me faudra le personnaliser... ça peut faire long, d'où l'idée d'avoir un code automatique comme évoqué plus haut.

Merci d'avance de votre aide.