Sub pos()
'MsgBox Columns.Count
LastCol1 = Cells(1, Columns.Count).End(xlToLeft).Column
LastCol2 = Cells(3, Columns.Count).End(xlToLeft).Column
Set ListeInit = Range("C1").Resize(1, LastCol1 - 2)
Set ListeRech = Range("C3").Resize(1, LastCol2 - 2)
i = 1
For Each ele In ListeInit
Set c = ListeRech.Find(ele, lookat:=xlWhole)
If Not c Is Nothing Then
Cells(6, c.Column) = i
i = i + 1
End If
Next ele
End Sub