.Cells(LigBanq, 8) = .Cells(LigBanq, 6) + .Cells(LigBanq, 7)
.Cells(LigMois, 6) = .Cells(LigMois, 6) + .Cells(LigCont, 6)
.Cells(LigMois, 7) = .Cells(LigMois, 7) + .Cells(LigCont, 7)
'****************
'Ligne à rajouter
.Cells(LigMois, 8) = .Cells(LigMois, 6) + .Cells(LigMois, 7)
'****************
End If
Next