Sub plus()
Dim dcl As Integer, dcl2 As Integer
dcl = Cells(10, Columns.Count).End(xlToLeft).Column
Range("G10:H12").Copy Cells(10, dcl + 1)
Dim LFin As Long, Tablo As Range: Set Tablo = [A:A].EntireRow
dcl2 = Cells(14, Columns.Count).End(xlToLeft).Column
LFin = Tablo.Rows.Count
Range("F" & 14 & ":G" & LFin).Copy Cells(14, dcl2 + 1)
End Sub
Sub moins()
Dim dcl As Integer, dcl2 As Integer
dcl = Cells(10, Columns.Count).End(xlToLeft).Column
If dcl = 8 Then Exit Sub
Columns(dcl).Delete Shift:=xlToLeft
Columns(dcl - 1).Delete Shift:=xlToLeft
Dim LFin As Long, Tablo As Range: Set Tablo = [A:A].EntireRow
LFin = Tablo.Rows.Count
dcl2 = Cells(14, Columns.Count).End(xlToLeft).Column
If dcl = 8 Then Exit Sub
Columns(dcl2).Delete Shift:=xlToLeft
Columns(dcl2 - 1).Delete Shift:=xlToLeft
End Sub