Bonjour forum,
Merci beaucoup Amadéus,
C'est exactement ce que que je cherche, entre temps j'ai trouver des solutations par macro pour pour les 2 cas, reclassement cellules sur colonne H ou bien reclassement lignes sur plage A:H
a tester,
Crdt,
Sub cellule()
Application.ScreenUpdating = False
Sheets(1).Select
k = Range("h65536").End(xlUp).Row
j = k
For i = 11 To j
Cells(j, 9).Value = Cells(i, 8).Value
j = j - 1
Next
For i = 11 To k
Cells(i, 8).Value = Cells(i, 9).Value
Cells(i, 9).Value = ""
Next
Application.ScreenUpdating = True
End Sub
Sub lignes()
Dim T As Variant, T2(), x As Long, i As Long, k As Long
On Error Resume Next
Application.ScreenUpdating = False
T = Range("a11:h" & Range("a65536").End(xlUp).Row)
x = 1
For i = UBound(T) To 0 Step -1
ReDim Preserve T2(1 To 23, 1 To x)
For k = 1 To 23
T2(k, x) = T(i, k)
Next k: x = x + 1: Next i
Range("a11:h" & Range("a65536").End(xlUp).Row).ClearContents
Range("a11").Resize(UBound(T2, 2), UBound(T2, 1)) = Application.Transpose(T2)
Erase T, T2
End Sub