Compression addition VBA

bonjour, pouvez vous me dire comment raccourcir ce code svp ?

merci

Range("w3").Value = Range("w8").Value + Range("B14").Value + Range("B15").Value + Range("B16").Value + Range("B17").Value + Range("B18").Value + Range("B19").Value + Range("B20").Value + Range("B21").Value + Range("B22").Value

Bonjour,

Range("w3").Value = Range("w8").Value +application.sum(Range("B14:B22"))

pas de fichier donc non testé.

eric

merci Eric, ça marche

à+