re-salut à tous, désolé pour le délai de reponse, mais j'ai fini par y arriver, je vous joins le fichier avec lequel j'ai bossé pour ceux qui veulent, sinon le code ressemble à ca:
Sub rgpt()
For j = 2 To 15
For i = 5 To 14 + 4
Cells(i, j).Select
demande = Selection.Value
'regroupements petites charges
If demande > 9 Then
k = 1
Do
µ = Cells(i, j + k).Value
If Cells(i, j + k).Value < 9 Then
Cells(i, j).Value = Application.WorksheetFunction.Sum(Range(Cells(i, j), Cells(i, j + k)))
demande = Selection.Value
Cells(i, j + k).Clear
Else: Cells(i, j).Value = demande
End If
k = k + 1
Loop While k < 4 And j + k < 17 And µ < 9
End If
Next i
Next j
End Sub
voilà, merci à tous, bonne soirée
Hervé. [file name=test_regle3.zip size=9078]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_regle3.zip[/file]