Ronan

Bonsoir,

Ou ceci :

Sub Total()

Dim DerLigne As Long

With Sheets("feuil1") 'Le nom de ta feuille

DerLigne = .Cells(65536, 3).End(xlUp).Row 'Le dernier numéro de ligne _
de la colonne C

.Range("c1") = Application.WorksheetFunction.Sum _
(.Range("c3:c" & DerLigne))

End With

End Sub

@+

Ronan