Sub Addition()
'
Dim col As Long
Dim Total
'
col = 1
Do
Cells(65536, col).End(xlUp).Offset(1, 0) = _
WorksheetFunction.Sum(Cells(1, _
col).Resize(Cells(1, col).End(xlDown).Row))
col = col + 1
Loop Until Cells(65536, col).End(xlUp).Row = 1
End Sub
With Sheets('RECAPFACT')
For j = 0 To 7
.Cells(i, j + 11) = Sheets('FACTURE').Cells(28 + j \\ 2, (j Mod 2) * 7 + 1)
Next j
End With
amicalement
radouan