Sub TROUVE_COLONNE()
Dim cellule As Range, d As String, col As Long
d = "MAISON"
On Error Resume Next
For Each cellule In Sheets("Feuil1").Range("C1:Z1")
If cellule = d Then
col = cellule.Column
MsgBox "la colonne se trouve à la position " & col ' ici votre procédure
End If
Next cellule
End Sub