Bonjour
Bonjour le forum
Pour trouver dans quelle colonne est ton titre , essaie cela
Sub ChercheTitre()
Dim Line As Range
Dim Num As Integer
Set Line = ThisWorkbook.Worksheets("Feuil1").Rows("1").Find(What:="Type", lookat:=xlWhole)
If Not Line Is Nothing Then
Num = Line.Column
MsgBox ("Colonne : " & Num)
End If
Set Line = ThisWorkbook.Worksheets("Feuil1").Rows("1").Find(What:="Valeur", lookat:=xlWhole)
If Not Line Is Nothing Then
Num = Line.Column
MsgBox ("Colonne : " & Num)
End If
End Sub
Bye