Bonjour ou Bonsoir tout le monde,

ça fait un moment que je n'ai pas posé de questions car j'essaie de me débrouiller seul mais je viens de rencontrer un problème que je n'arrive pas à résoudre. la réponse de la macro est très lente pour une boucle simple, que puis-je faire d'autant que je n'ai pas beaucoup de données à vérifier étant en essai (70 à peu près). voici ma boucle et le résultat :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
adresse_cel = Selection.Address
nsc = Range(adresse_cel).Column
nsr = Range(adresse_cel).Count
nsl = Range(adresse_cel).Row
pt1 = Range(adresse_cel).End(xlUp).Offset(nsl - 1, 0).Address 'adresse 1ere ligne selectionnée
pt2 = Range(pt1).Offset(nsr - 1, 0).Address
 
c = Sheets("codes").Range("a2").End(xlDown).Offset(0, 0).Row
For k = 0 To c
    codecherche = Sheets("CODES").Range("a2").Offset(k, 0).Value
    groupecherche = Sheets("CODES").Range("a2").Offset(k, 2).Value
 
    If codecherche = activitecherchee Then: Exit For
Next k
    Sheets("saisies").Range(pt1).Offset(0, 9).Value = groupecherche
Merci de votre réponse