Amélioration code et eviter Activate

Bonjour, je souhaiterais éviter d'utiliser activate (trop long et fait pop des pages tout le temps) mais mon code bug :

'Détails Cours cloture, PMA et Perf moyenne

derniereligne = Workbooks("exemple_synt%.xlsx").Sheets(f + 1).Range("H5555").End(xlUp).Row

For i = 15 To derniereligne - 10

isin = Workbooks("exemple_synt%.xlsx").Sheets(f + 1).Range("F" & i).Value

With ThisWorkbook.Sheets("PAM")

If .Cells.Find(isin) Is Nothing Then

Else

.Cells.Find(isin).Activate (à cet endroit, cela ne fonctionne pas)

ligne = ActiveCell.Row

Pam_min = Application.WorksheetFunction.Min(Rows(ligne))

Pam_max = Application.WorksheetFunction.Max(Rows(ligne))

End If

End With

Next i

Je serais ravi si quelqu'un avait une idee.

Merci par avance

Bonjour,

Merci de joindre le fichier qui va avec.

Je ne peux pas pour clause de confidentialité.

Mais en soit mon probleme vient du fait que j'ai essayé d'enlever le Windows.activate je suppose

existe t-il un autre moyen que le Windows.activate pour chercher des valeurs dans un autre classeur ?