Sub Defusion_Col()
Application.ScreenUpdating = False
If MsgBox("Vous vous apprêtez à modifier la configuration du classeur, êtes-vous sûr de vouloir continuer?", vbYesNo, "Demande de confirmation") = vbYes Then
Selection.UnMerge
With Range("C:C,E:E,K:K,N:N,P:P").Delete
Range("B:B,I:I,K:L,P:P").ColumnWidth = 31 '.EntireColumn.AutoFit 'Va ajuster la colonne selon la plus longue valeur
Range("H:K").ColumnWidth = 6
Range("1:6").Delete
Range("1:1").RowHeight = 42
Range("J:J").Select
Application.CutCopyMode = False
Selection.Cut
Range("G:G").Select
Selection.Insert Shift:=xlToRight
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.RowHeight = 18
Range("A2:O20000").Select
Selection.Copy
End With
MsgBox "Opération terminée ! Merci pour votre patience."
End If
End Sub