Fusion de cellules VBA

Option Explicit
Dim chaine As String
Dim col As String
Dim colonne As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Dim ref As Range
Set ref = Application.InputBox(prompt:="Sélectionner les cellules à fusionner sur la feuille", Type:=8)
Range(ref.Address).Select
 Selection.Merge 'B2:B6
chaine = ref.Address
extractionMots
chaine = Replace(chaine, col, colonne) 'remplacer colonne B par E
Range(chaine).Select
 Selection.Merge 'E2:E6
End Sub
'Extraire les données séparées par un  "$" dans une chaine de caractères
Sub extractionMots()
    Dim Tableau() As String
    Dim i As Integer
   'découpe la chaine en fonction des  "$"
    'le résultat de la fonction Split est stocké dans un tableau
    Tableau = Split(chaine, "$")
    'boucle sur le tableau pour visualiser le résultat
    For i = 0 To UBound(Tableau)
        'Le résultat s'affiche dans la fenêtre d'execution de l'éditeur de macros
        Debug.Print Tableau(i)
    Next i
    col = Tableau(1) 'colonne en lettre
   colonne = AlphaColToNum(col) 'colonne en chiffre
    colonne = Split(Columns(colonne + 3).Address(ColumnAbsolute:=False), ":")(1) 'colonne en lettre + 3 a adapter
End Sub
'colonne en chiffre
Function AlphaColToNum(col As String) As Long
    AlphaColToNum = Range(col & 1).Column
End Function