extraction

Sub Recher_Text()
Dim SearchString As String
Dim SearchChar As String
Dim MyPos As Byte
Dim cell As Range
Dim ligne As Byte
Dim colonne As Byte
Dim texte As String

texte = 'DB' & Worksheets('DB').Cells(1, 3)
SearchChar = texte

For Each cell In Range('A1:AH1')
    SearchString = cell.Text
    MyPos = InStr(SearchString, SearchChar) 'ici tu pourrais directement utiliser la variable texte

    If MyPos > 0 Then
        ligne = cell.Row 'renvoi le numero de la ligne
        colonne = cell.Column 'renvoi le numero de la colonne
        MsgBox cell.Address
    End If
Next C
End Sub

Cliquez pour agrandir...