c'est ce que je pensais faire, mais je ne suis pas forcément fan des requêtes de ce genre, car je doute de la fiabilité de fréquence de mise a jour de la requete
.
.
.
rst.Open txt, cnx
While Not rst.EOF
For x = 30 To .Range("WZ30").End(xlDown).Row - 1
If .Cells(x, 624).Value = rst.Fields("Nom prénom") Then
.Cells(x, 623).Value = rst.Fields("Identifiant salarié")
Exit For
End If
Next x
rst.MoveNext
Wend
...