Sub Reorganise()
Dim a, i As Long, j As Long, k As Long, b(), n As Long, Cclient As String
Application.ScreenUpdating = False
a = Sheets("Feuil1").UsedRange.Value
ReDim b(1 To UBound(a, 1) * UBound(a, 2), 1 To 13)
For i = 4 To UBound(a, 2) Step 2
Cclient = a(2, i)
For j = 4 To UBound(a, 1)
n = n + 1
b(n, 1) = a(j, 1)
b(n, 2) = Cclient
b(n, 3) = ""
b(n, 4) = ""
b(n, 5) = ""
b(n, 6) = a(j, 2)
b(n, 7) = ""
For k = 0 To 1
b(n, k + 8) = a(j, i + k)
Next
b(n, 10) = ""
b(n, 11) = ""
b(n, 12) = ""
b(n, 13) = ""
Next
Next
With Sheets("Feuil3").Cells(1).Resize(, 13)
.CurrentRegion.Clear
.Value = Array("Mois", "Code Client", "Societe", "Restaurant", "Fournisseur", "RefArticle", _
"Article", "Qté", "C.A", "Unité", "Dilution", "Sucré", "Edulcoré")
With .Offset(1).Resize(n)
.Value = b
With .CurrentRegion
.BorderAround ColorIndex:=1, Weight:=xlThin
.Borders(xlInsideVertical).Weight = xlThin
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Font.Name = "tahoma"
.Font.Size = 10
.Columns(6).Interior.ColorIndex = 44
With .Rows(1)
.RowHeight = 18
.BorderAround ColorIndex:=1, Weight:=xlThin
.Interior.ColorIndex = 22
.Font.Size = 10
End With
.Parent.Activate
End With
End With
End With
Application.ScreenUpdating = True
End Sub