Bonjour le forum,
voici une partie de macro suivante :
With ThisWorkbook.Sheets("Résas")
reference = .Range("AT1")
info = .Range("AS1")
Set celluleRecherche = .Range("A:A").Find(reference, , xlValues, xlWhole)
If Not celluleRecherche Is Nothing Then...