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