Option Explicit
Sub CommandButton1_Click()
Dim Cellules As Range
Dim ligne As Integer
Set Cellules = Sheets("a").Range("I22:I65000")
TextBox3.Value = Application.WorksheetFunction.Subtotal(4, Cellules)
ligne = Application.Match(Application.WorksheetFunction.Subtotal(4, Cellules), Cellules, 0)
MsgBox Columns(9).Find(what:=TextBox3.Text).Address
End Sub