Salut mibri,
c'est déjà plus concret!
Le code est... particulier! Il y avait deux Worksheet_Change() !!!!
A quoi sert ceci?
mem = Target.Address(0, 0)
On Error Resume Next
For Each C In Array("D3", "D6", "D9", "D12", "I16", "I18", "I20", "I26", "I28", "G32", "H32", "I32", "J32", "N32", "G34", "H34", "I34", "J34", "N34", "G36", "H36", "I36", "J36", "N36", "G38", "H38", "I38", "J38", "N38", "G40", "H40", "I40", "J40", "N40")
If pass Then Range(C).Select: pass = 0: Exit Sub
i = i + 1
If mem = C Then: pass = 1: GoTo 1
1 Next C
Ta macro majuscule fonctionne bien mais es-tu certain de la pertinence des cellules-cible?
A+