Recherche numéro de colonne avec 2 critères (VBA)

Sub Recherche_numéro_colonne()
'Mes variables
Dim T() As Variant, Typ As String, Nom As String, C As Long

Typ = "A"
Nom = "toto"

T = Feuil1.[A1:I2].Value
For C = 2 To UBound(T, 2)
   If T(1, C) = Typ And T(2, C) = Nom Then MsgBox C: Exit For
   Next C
End Sub

Sub Recherche_numéro_colonne()
'Mes variables
Dim typpe As String 'type: A ou B
Dim num_colonne As Integer ' résultat que j'epsère trouver
Dim num As String 'nom tita, toto, ...
Dim Cel As Range

'Pour cette expemple je choisi de rechercher le numéro de la colonne qui contien 1 dans la ligne 1 et C dans la ligne 2
typpe = "A"
num = "toto"

For Each Cel In Range("1:1").SpecialCells(xlCellTypeConstants)
  If Cel.Value = typpe And Cel.Offset(1, 0).Value = num Then MsgBox Cel.Column: Exit For
Next
End Sub