Remplacer pour Activecell

Bonjour à tous,

Dans le code suivant, comment remplacer J21 par Active cell ?

Sub AjoutTotal()
Dim Cell As Range
derli = Cells(Rows.Count, "I").End(xlUp).Row
Columns("J:J").Select
Selection.Find(What:="MTL", After:=ActiveCell, LookIn:=xlValu=
es _
, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xl=
Next, _
MatchCase:=False, SearchFormat:=False).Offset(1, 0).Select

'Ici je trouve la cellule contenant les lettres MTL (il n'y en a qu'une) =
et je choisis la cellule qui est dans la ligne en dessous. Je voudrais que =
le code qui suit soit:

Range("J..activecell:J" & derli) etc.


For Each Cell In Range("J21:J" & derli)
Cell.Formula = "=F21 + G21"
Activecell.Select
Selection.AutoFill Destination:=Range("J21:J" & derli)
Next
etc.

End sub

Auriez-vous une idée ?

Merci

Denys