Bonjour le forum
Le présent code fonctionne parfaitement, mais s'adresse à une plage, je souhaite qu'il prenne en compte des plages
définie dans une liste voir fichier
Merci de M'aider même si j'espère parvenir à trouver avec du temps...
Cordialement
Muriel
Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("H8")) Is Nothing Then
Range("F8").Value = Range("D8").Value
For i = 9 To 18
If Range("H8").Value = "0" Then
Range("F" & i).Value = Range("D" & i).Value
Else
Exit Sub
End If
Next i
End If
End Sub