Bonjour
Il manque un point
Private Sub somme()
Dim L, i As Integer, T As Long
T = 0
L = Sheets(1).Range('A65536').End(xlUp).Row
With Sheets(1)
For i = 1 To L - 1
T = T + .Range('F' & i).Value
Next i
.Range('F' & L+1) = 'total:' & T & ' !!!'
End With
End Sub
Il manque un point
Private Sub somme()
Dim L, i As Integer, T As Long
T = 0
L = Sheets(1).Range('A65536').End(xlUp).Row
With Sheets(1)
For i = 1 To L - 1
T = T + .Range('F' & i).Value
Next i
.Range('F' & L+1) = 'total:' & T & ' !!!'
End With
End Sub