Extraction d'un caractère après comparaison de chaines

Public T_Out(), IndTab As Long, Dico As Object

Sub Vazy()
'appel de la procédure
   'CAISSIE ==> correspond aux 7 lettres du rack
   'Array("A", "R", "T", "U", "I", "O", "P") ==> Liste des 8èmes lettres possibles
   'True ou False selon si l'on souhaite un Scrabble (False) ou un scrabble + (True)
'exemple d'appel :
Scrabble "CAISSIE", Array("A", "R", "T", "U", "I", "O", "P"), True
End Sub

Sub Scrabble(Chaine As String, Lettres_Sup As Variant, Plus As Boolean)
Dim t As Single, i As Integer, test As Long

   t = Timer
   On Error Resume Next
   test = Dico.Count
   If Err <> 0 Then Creation_Dico
   Erase T_Out: IndTab = 0
   On Error GoTo 0
   
   Combiner Chaine, ""
   If Plus Then 'si le choix = Scrabble+
      For i = LBound(Lettres_Sup) To UBound(Lettres_Sup)
         'alors on combine avec toutes les lettres supplémentaires possibles
         Combiner Chaine & Lettres_Sup(i), ""
      Next i
   End If
   Debug.Print "procédure complète en : " & Timer - t & " nombre de mots trouvés : " & UBound(T_Out)
End Sub

Sub Combiner(strText As String, debut As String)
'Combiner établit la liste des combinaisons possibles
'avec la chaîne strText
Dim i As Integer

   If Len(strText) = 1 Then
      'si la combinaison existe dans le Dico ==> mot trouvé
      If Dico.Exists(debut & strText) Then
         'on stocke ici le mot trouvé dans la variable T_Out
         ReDim Preserve T_Out(IndTab)
         T_Out(IndTab) = debut & strText
         IndTab = IndTab + 1
      End If
   Else
       For i = 1 To Len(strText)
           Combiner Mid(strText, 2, Len(strText) - 1), debut & Mid(strText, 1, 1)
           strText = Mid(strText, 2, Len(strText) - 1) & Mid(strText, 1, 1)
       Next
   End If
End Sub

Sub Creation_Dico()
'création du dictionnaire en mémoire à partir de la feuille dico
Dim Lig As Long, DL As Long, Col As Integer, Tbl, tbis As Single

   tbis = Timer
   Set Dico = CreateObject("Scripting.Dictionary")
   Tbl = Sheets("dico").Range("A6:Z" & Sheets("dico").Cells.SpecialCells(xlCellTypeLastCell).Row)
   For Lig = LBound(Tbl, 1) To UBound(Tbl, 1)
      For Col = LBound(Tbl, 2) To UBound(Tbl, 2)
         Dico(Tbl(Lig, Col)) = ""
      Next Col
   Next Lig
   Debug.Print "création du dictionnaire en : " & Timer - tbis & " pour : " & Dico.Count & " mots"
End Sub

Function extrait_intrus(dummy As String, texto As String) As String
Dim reg As Object
Dim extraction As Object
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True
    reg.Pattern = "([^" & dummy & "])"
    Set extraction = reg.Execute(texto)
    For Each digit In extraction
        extrait_lettres = extrait_lettres & (digit.Value)
    Next digit
    Set extraction = Nothing
    Set reg = Nothing
End Function

Mettre un extrait du classeur env. 1000 lignes, 10 colonnes) sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci  proposé (clic droit) dans le message de réponse 

Scrabble lettres_cherchees, Array("A", "R", "T", "U", "I", "O", "P"), "A4"

Public Dico_Out As Object, Dico As Object

Sub Vazy()
Dim lettres_cherchees As String

'appel de la procédure
   'CAISSIE ==> correspond aux 7 lettres du rack
   'Array("A", "R", "T", "U", "I", "O", "P") ==> Liste des 8èmes lettres possibles
      'Si pas de lettres supp exemple Array() ==> pas de recherche supplémentaire
   '"C4" ==> String correspondant à la première cellule ou l'on veut restituer les mots trouvés
'exemples d'appels
   'Scrabble "CAISSIE", Array("A", "R", "T", "U", "I", "O", "P"), "A4" ==> Scrabble +
   'Scrabble "CAISSIE", Array(), "A4" ==> Scrabble
'========================================================================
   lettres_cherchees = UCase(Sheets("Feuil1").Range("I6").Value)
   
   Scrabble lettres_cherchees, Array("A", "R", "T", "U", "I", "O", "P"), "C4"
End Sub

Sub Scrabble(Chaine As String, Lettres_Sup As Variant, Cell_Restit As String)
Dim t As Single, i As Integer, test As Long, Plus As Boolean
Dim start
Dim finish
Dim duree

'départ chrono
   start = Time
   
   On Error Resume Next
   test = Dico.Count
   If Err <> 0 Then Creation_Dico
   On Error GoTo 0
   
   'création du dictionary pour stocker les résultats
   Set Dico_Out = CreateObject("Scripting.Dictionary")
   
   Combiner Chaine, ""
   'analyse si pas de valeur dans Lettres_Sup alors Scrabble simple sinon Scrabble +
   Plus = (UBound(Lettres_Sup) > -1)
   If Plus Then 'si le choix = Scrabble+
      For i = LBound(Lettres_Sup) To UBound(Lettres_Sup)
         'alors on combine avec toutes les lettres supplémentaires possibles
         Combiner Chaine & Lettres_Sup(i), ""
      Next i
   End If

'fin chrono
   finish = Time
'======================================================================== AFFICHAGES
   'affiche le timer de départ
   Sheets("Feuil1").Range("I1").Value = start
   'affiche le timer de fin
   Sheets("Feuil1").Range("I2").Value = finish
   duree = finish - start
   'affiche le temps mis pour la recherche
   Sheets("Feuil1").Range("I3").Value = duree
   'affiche le nombre de mots trouvés
   Sheets("Feuil1").Range("I4").Value = Dico_Out.Count
   'affiche la liste des mots trouvés
   Sheets("Feuil1").Range(Cell_Restit).Resize(Dico_Out.Count, 1) = Application.Transpose(Dico_Out.keys)
'========================================================================

   Debug.Print "procédure complète en : " & Timer - t & " nombre de mots trouvés : " & Dico_Out.Count
End Sub

Sub Combiner(strText As String, debut As String)
'Combiner établit la liste des combinaisons possibles
'avec la chaîne strText
Dim i As Integer, l As Integer

   If Len(strText) = 1 Then
      'si la combinaison existe dans le Dico ==> mot trouvé
      If Dico.Exists(debut & strText) Then
         'on stocke ici le mot trouvé dans la variable Dico_Out
         Dico_Out(debut & strText) = ""
      End If
   Else
       For i = 1 To Len(strText)
           Combiner Mid(strText, 2, Len(strText) - 1), debut & Mid(strText, 1, 1)
           strText = Mid(strText, 2, Len(strText) - 1) & Mid(strText, 1, 1)
       Next
   End If
End Sub

Sub Creation_Dico()
'création du dictionnaire en mémoire à partir de la feuille dico
Dim Lig As Long, DL As Long, Col As Integer, Tbl, tbis As Single
   
   tbis = Timer
   Set Dico = CreateObject("Scripting.Dictionary")
   Tbl = Sheets("dico").Range("A6:Z" & Sheets("dico").Cells.SpecialCells(xlCellTypeLastCell).Row)
   For Lig = LBound(Tbl, 1) To UBound(Tbl, 1)
      For Col = LBound(Tbl, 2) To UBound(Tbl, 2)
         Dico(Tbl(Lig, Col)) = ""
      Next Col
   Next Lig
   
   Debug.Print "création du dictionnaire en : " & Timer - tbis & " pour : " & Dico.Count & " mots"
End Sub

Les doublons sont, à mon avis, dus à un "double lancement" de la Sub Combiner.
Bon, je ne me l'explique pas complètement. Je me pencherais là dessus plus tard.
La parade la plus simple en attendant l'explication, est d'utiliser un Dictionary (Dico_Out) pour la restitution des données. C'est fait.

Oui
J'ai enlevé le paramètre Plus. Cela évite de lancer la macro avec un Array vide et une demande de scrabble +. Le Scrabble + (8 lettres) ne se calculera que si des lettres sont données dans l'Array. La variable Booléenne Plus est maintenant calculée en fonction de l'UBound de l'Array passé en paramètre.

Le nombre donné par la macro était faux. De ma faute... UBound(T_Out) nous donne l'indice du dernier élément du tableau, pas le nombre de valeurs contenues dans ce tableau. Comme le premier indice du tableau est 0, le nombre d'éléments est égal à UBound(T_Out) + 1. 
Cette question n'a plus lieu d'être puisqu'on utilise un Dictionary. Il suffit d'utiliser Dico_Out.Count.

Dans VBE, dans la fenêtre VBA-Project, tu as les objets du classeurs. Dont l'objet Thisworkbook. Double clic dessus pour en ouvrir le Module de code.
C'est dans ce module que tu peux travailler avec les événements du classeur : ouverture (Open), fermeture (BeforeClose) etc...
Ici, tu veux à l'ouverture du classeur lancer la Sub Creation_Dico, je t'ai placé ce code :

Private Sub Workbook_Open()
Creation_Dico
End Sub

Il se déclenchera à chaque ouverture du classeur.