Sub Cadrage()
Dim lig As Variant, h As Variant, col As Variant
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
lig = Application.Match("Date", .Columns(1), 0)
If IsError(lig) Then Exit Sub
Do
h = Application.Match("Date", .Range(.Cells(lig + 1, 1), .Cells(.Rows.Count, 1)), 0)
If IsError(h) Then h = .Rows.Count + 1 - lig
col = Application.Match("Date valeur", .Rows(lig), 0)
If IsNumeric(col) Then If col > 2 Then .Cells(lig, col).Resize(h).Cut: .Cells(lig, 2).Insert xlToRight 'couper-insérer
col = Application.Match("Opération", .Rows(lig), 0)
If IsNumeric(col) Then If col > 3 Then .Cells(lig, col).Resize(h).Cut: .Cells(lig, 3).Insert xlToRight 'couper-insérer
col = Application.Match("Débit*", .Rows(lig), 0)
If IsNumeric(col) Then If col <> 5 Then .Cells(lig, col).Resize(h, 2).Cut: .Cells(lig, 5).Insert xlToRight 'couper-insérer
lig = lig + h
Loop While lig <= .Rows.Count
If .Columns.Count > 6 Then .Columns(7).Resize(, .Columns.Count - 6).Clear 'RAZ au-delà de la colonne F
End With
End Sub