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