Limité à 31 caractères pour le titre d'une feuille.

Bonjour à tous,

Voici ma problèmatique :

Je dispose d'une macro qui me permet, en fonction de ce qui est rentré dans une cellule ("Oui" ou "Non") de la feuille A, de créer automatiquement une nouvelle feuille B dans le classeur.

Grâce à la macro, la nouvelle feuille B va également porter comme titre le contenu d'une cellule précise de la feuille A.

Jusqu'ici, tout marchait très bien, sauf qu'aujourd'hui je me retrouve avec des contenu de cellules supérieurs à 31 caractères, et donc la macro plante et le titre ne se fait pas.

Quelles sont les possibilités ?

Je pense pas qu'il soit possible de dépasser cette limite de 31 caractères. Alors peut-on trafiquer la macro pour que le titre ne prennent en compte que les 31 premiers caractères de la cellule et pas les suivants ?

Voici la macro. Merci pour votre aide !

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Application.Intersect(Range("M13:M200"), Target) Is Nothing) And Target.Count = 1 Then
If Target.Value = "Oui" Then
Sheets("Annexe 3-2").Copy After:=Sheets("Annexe 3-2")
ActiveSheet.Name = Target.Offset(0, -11).Value
End If
End If
End Sub

Cliquez pour agrandir...