vba Convertir lettre en numéro de colonne

Sub ConvertirLettrColonne()
  Dim r As Range
  Dim letColonne
  letColonne = InputBox("Indiquez la lettre de la colonne")
  If letColonne <> "" Then
    On Error Resume Next
    Set r = Range(letColonne & "1")
    If Err <> 0 Then
      MsgBox ("Colonne non valide")
    Else
      MsgBox r.Column
    End If
    On Error GoTo 0
  End If
End Sub

ColAlpha = InputBox(prompt:="Indiquez la lettre de la colonne ")
NumCol = Range(ColAlpha & 1).Column
MsgBox NumCol

Sub ConvertirLettresColonne()
Dim lettre$, colonne%
1 lettre = InputBox("Indiquez la ou les lettres de la colonne")
If lettre = "" Then Exit Sub
For colonne = 1 To Columns.Count
  If Split(Columns(colonne).Address(0, 0), ":")(0) = UCase(lettre) Then
    MsgBox colonne
    Exit Sub
  End If
Next
GoTo 1
End Sub

Sub test()

letColonne = InputBox("Indiquez la lettre de la colonne")

Dim cor As Range
Set cor = Range(Cells(1, 1), Cells(1, 16384))
'MsgBox cor.Count
'MsgBox Split(cor(1, 1).Address, "$")(1)
For i = 1 To cor.Count
If Split(cor(1, i).Address, "$")(1) = UCase(letColonne) Then
    MsgBox letColonne
    MsgBox i
    Exit For
End If

Next i

End Sub

Do
ColAlpha = InputBox(prompt:="Indiquez la lettre de la colonne ")
test = IsError(Evaluate("= " & ColAlpha & "1"))
If test Then
     MsgBox "la colonne n'existe pas"
Else
    NumCol = Range(ColAlpha & 1).Column
    MsgBox NumCol
End If
Loop Until Not test

Function EntCol(ByVal N As Long) As String
Do: N = N - 1: EntCol = Chr$(N Mod 26 + 65) & EntCol: N = N \ 26: Loop Until N = 0
End Function
Function ColEnt(ByVal C As String) As Long
Dim P As Long: For P = 1 To Len(C): ColEnt = ColEnt * 26 + Asc(Mid$(C, P, 1)) - 64: Next P
End Function

Sub ConvertirLettrColonne()
MsgBox ColEnt(UCase(InputBox("Indiquez la lettre de la colonne")))
End Sub

Sub ConvertirLettresColonne()
Dim lettre$, colonne%
1 lettre = InputBox("Indiquez la ou les lettres de la colonne")
If lettre = "" Then Exit Sub
On Error Resume Next
colonne = Columns(lettre).Column
If colonne = 0 Then GoTo 1
MsgBox colonne
End Sub