Bonjour Ben,
(désolée Thierry je sais même plus faire du gras pour le bonjour manquant...)
Ceci dit tu peux rechercher la référence et modifier sa valeur de la façon suivante :
Dim CELLULE As Range
Set CELLULE = AutreFeuille.Columns("A:A").Find(What:=Range("B12"), LookAt:=xlWhole)
If CELLULE Is Nothing Then
J'imagine que tu l'ajoutes
Else
CELLULE.Offset(0,1) = NouvelleValeur
End If
@ bientôt et bon'aprem
Valérie