'--------------------------------------------------
'FONCTION DE TOTAL
'--------------------------------------------------
Sub total()
'Numero de départ = a partir de là ou il faut faire la somme
Dim numeroDeDepart As Long
Dim numeroArret As Long
Dim numeronouvo As Long
Dim haut As Variant
Dim bas As Variant
Dim youki As String
numeroDeDepart = premiereLigne.Row
'Bricolage pour eviter les calculs sur des strings
For y = 8 To 28
If y = 9 Then
y = 12
End If
If y = 17 Then
y = 19
End If
If y = 20 Or y = 21 Then
y = 22
End If
numeronouvo = numeroDeDepart
youki = ""
For i = 6 To (numeroDerniereLigne - numeroDeDepart)
If premiereLigne.Offset(i, 0) = "" Then
numeroArret = premiereLigne.Offset(i, 0).Row + 1
haut = Cells(numeronouvo, y).Address
bas = Cells(numeroArret, y).Address
youki = youki & haut & ":" & bas & ";"
numeronouvo = numeroArret + 1
End If
haut = Cells(numeronouvo, y).Address
bas = Cells(numeroDerniereLigne, y).Address
Next i
youki = youki & haut & ":" & bas
youki = "=sum (" & youki & ")"
With Cells(numeroDerniereLigne + 1, y)
'Ajout de la valeur
.Formula = youki // ICI LE PROBLEME
End With
bas = 0
haut = 0
Next y