XL 2016 Appliquer des formules sur des cellules filtrées (VBA)

Sub Calcul()

Dim x As Integer

Sheets("Feuil3").Select
NumRows = Range("A2", Range("A2").End(xlDown)).Rows.Count
Range("A2").Select

      For x = 1 To NumRows
        
         Sheets("Feuil2").Select
         ActiveWindow.SmallScroll Down:=0
' Ici je sais pas comment définir la valeur de la cellule de la feuille 3 qui servira comme filtre dans la colonne A de la feuille 2
            ActiveSheet.Range("$A$1:$D$17").AutoFilter Field:=1, Criteria1:=ActiveCell.Offset(1, 0).Value
        
                Range("A2").Select
                  Do Until IsEmpty(ActiveCell)
                ' Ici je sais pas comment dire "Prendre la cellule de la colonne D mais de la même ligne"
                     Range("D2").Select
                     ActiveCell.FormulaR1C1 = "=RC[-1]-R[-1]C[-1]"
                  
                     ActiveCell.Offset(1, 0).Select
                
                  Loop
        
        
      Next

End Sub