Bonjour, quelqu'un peut il me dire pourquoi ce code ne marche pas, mais ne génère pas d'erreur tout de même ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
lig = 16
 For Each c In .Range("D16:D20" )
                    c = c + .Range("E" & lig)
                    lig = lig + 1
                Next c
Merci d'avance.