Correction de code vba

bonjour j’ai ecris ce VBA sur GOAL SEEK pour une plage mais en fin de traitement ca sort un code d’erreur debug
comment faire pour annuler cette erreur
je rappelle que le VBA fonctionne
voici:
Sub RC()
Dim Netapayer As Range
For Each Netapayer In ActiveSheet.Range(« Au2:Au90 »)
Netreel = ActiveSheet.Range(« Av » & Netapayer.Row)
TauxReel = ActiveSheet.Range(« Q » & Netapayer.Row)
x = Range(Netapayer.Address).GoalSeek(Goal:=Netreel, ChangingCell:=ActiveSheet.Range(« Q » & Netapayer.Row))
Next

sans fichier, c’est toujours un pari

Sub RC()
     Dim Netapayer As Range
     With ActiveSheet
          For Each Netapayer In .Range("AU2:AU90").Cells
               Set Netreel = .Range("AV" & Netapayer.Row)
               Set Tauxreel = .Range("Q" & Netapayer.Row)
               x = Netapayer.GoalSeek(Goal:=Netreel, ChangingCell:=Tauxreel)
          Next
     End With
End Sub

non c’est un fichier comptable
I_MKN_CASUAL_ SEPTEMBER-1_2023_PAYROLL-RK_FINAL FILE-updt.xlsm (1,8 Mo)

bonjour

a teste

salutations

I_MKN_CASUAL_ SEPTEMBER-1_2023_PAYROLL-RK_FINAL FILE-updt (1).xlsm (1,9 Mo)

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.