Dim Cel As Range
Dim a As Variant
Dim response As Variant
Dim i&, cl&
Dim mondico As Object
With Sheets("feuil1")
response = InputBox("year:")
Set Cel = .UsedRange.Find(what:=response)
If Not Cel Is Nothing Then
cl = Cel.Column
a = .Range(.Cells(2, cl), .Cells(.Cells(Rows.Count, cl).End(xlUp).Row, cl))
Else
MsgBox "year not found "
End If
End With
Set mondico = CreateObject("Scripting.Dictionary")
For i = LBound(a) To UBound(a)
If a(i, 1) <> "" Then mondico(a(i, 1)) = ""
Next i