VBA remplacer mots ou inverser

Sub replce()
    Dim fromList() As Variant
    Dim toList() As Variant
    
    fromList = Array("Buy", "Sell")
    toList = Array("Sell", "Buy")
    
    Dim i As Long
    For i = LBound(fromList) To UBound(fromList)
        Worksheets("Sheet1").Columns("T").Replace _
            What:=fromList(i), Replacement:=toList(i), _
            SearchOrder:=xlByColumns, MatchCase:=True
    Next

End Sub