Trouver une colonne

Bonjour,

J'aimerais savoir la façon plus rapide de trouver une colonne.

J'utilise présentement un For mais c'est lent.

Merci,

Oiseau bleu

Bonsoir,

Je m'y prends ainsi :

With Sheets("Nom de la feuille")
 cib0 = 0: On Error Resume Next: cib0 = .Range("1:1").Find("RECHERCHE", LookIn:=xlValues).Column
End with

Pour rechercher dans la première ligne.

Bonne soirée.

bonjour,

Sub Trouver_Date()
     Dim c, Col
     Set c = Range("B1:AF1")
     Col = Application.Match(CDbl(Range("A4").Value), c, 0)
     If IsNumeric(Col) Then Range("C4").Value = Col + c.Column - 1 Else Range("C4").Value = "erreur"
End Sub

Bonjour,
Une autre proposition !

Sub Trouver_Date()
Dim dt, rngData As Range, lastCol As Long, n
    With ActiveSheet
        dt = .Cells(4, 1).Value2
        lastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
        Set rngData = .Cells(1).Resize(, lastCol)
        n = Application.Match(dt, rngData, 0)
        If IsError(n) Then
            MsgBox "Date inconnue"
        Else
            .Cells(4, 3).Value = n
        End If
    End With
End Sub

Merci beaucoup pour vos réponses.

Vous êtes d'une grande aide. Vous avez réglé mon problème.

Bravo et bonne journée.

Oiseau bleu