Colonne --> colonnes

Sub TEST()
Dim sht As Worksheet
Dim LastRow As Integer, LastColumn As Integer, LR As Integer
Dim Copyrange As Range

Set sht = ActiveSheet

LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row

For i = 1 To LastRow

LastColumn = sht.Cells(1, sht.Columns.Count).End(xlToLeft).Column
LR = sht.Cells(sht.Rows.Count, LastColumn).End(xlUp).Row

If Cells(i, LastColumn).Value = "OFF" Then
Set Copyrange = Range(Cells(i + 1, LastColumn), Cells(LR, LastColumn))
Copyrange.Cut Cells(1, LastColumn + 1)
i = 0
LR = sht.Cells(sht.Rows.Count, LastColumn).End(xlUp).Row
Cells(LR, LastColumn).Clear
End If

Next i

Application.CutCopyMode = False

End Sub

Mettre le classeur sans données confidentielles en pièce jointe sur 
https://mon-partage.fr/
Puis faire un clic droit copier le raccourci  et coller dans votre message 

• si on répond pas dans l'heure du post aux sympathiques réponses des forumers on se fait mal voir - dommage! Tout n'est pas forcément urgentissime et puis en l'occurrence ça peut être urgent mais avoir d'autres choses en cours (comme conduire ;)). Quoiqu'il en soit je remercie une nouvelle fois et vous dis mult bravos.