Re,
J'ai trouvé cette solution :
Sub TotalTTC()
Sheets("données").Select
Range("Q2") = CDbl(Range("k2")) + CDbl(Range("K3")) + CDbl(Range("K4")) + CDbl(Range("K5")) + CDbl(Range("K6")) + CDbl(Range("K7"))
End Sub
Mais cela ne me satisfait qu'à moitié car si j'ai beaucoup de cellules dans une colonne à additionner la programmation risque d'être super ennuyeuse.
@+
Amicalement
Noel