Problème avec Goalseek en VBA

Bonjour,

J'essaye d'utiliser la fonction Goalseek en VBA mais dans une plage de recherche avec une boucle mais je ne parviens pas à le faire. A chaque fois j'ai une erreur 1004 sur la méthode range.

Pouvez-vous m'aider?

Cordialement,

U_goffu

P.S : voici mon fichier

Bonjour,

Essaie ainsi :

With Worksheets("Avec congé")
            '.Range(valeurCol).GoalSeek Goal:=GoalValue, ChangingCell:=Range(valeurCol_change)
            .Cells(i, NumCol).GoalSeek Goal:=recherche, ChangingCell:=.Cells(i, NumChangeCol)
        End With

Désolé pour le temps de réponse. Je n'avais plus de PC. Tout marche, je te remercie beaucoup.

Cdlt,

U_goffu