Copier / coller / supprimer variable

Bonjour à vous !

Alors voilà j'ai une nouvelle colle VBA

Je souhaite décaler les lignes d'un tableau avec quelques subtilités que j'ai tenté de retranscrire dans le fichier ci-joint qui en dira plus qu'un tas d'explications. J'y ai fait 2 onglets : un de ma situation de départ et un de la situation cible après macrotage !

Il faut bien copier et coller non pas couper car il y a des formules qui doivent rester en place (en fait seulement une partie des informations sont en durs et doivent être déplacées via un copier / coller).

Je suis souvent épaté de la simplicité déconcertante des lignes de code que vous proposez alors que je ne peux pas m'empêcher de faire de l’infiniment compliqué !

Merci d'avance de votre aide.

Bonjour,
Un début de réponse !?
Cdlt.

Public Sub UpdateData()
Dim lastRow As Long, lRow As Long, n
    Application.ScreenUpdating = False
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        For lRow = 5 To lastRow Step 2
            On Error Resume Next
            n = Application.Match(.Cells(lRow, 2), .Cells(3, 4).Resize(, 11), 0)
            If Not IsError(n) Then
                .Cells(lRow, n + 3).Delete Shift:=xlToLeft
            End If
        Next lRow
    End With
End Sub

Bonjour Jean-Eric,

Merci beaucoup de ta contribution ! Cela marche en effet mais je n'arrive pas à comprendre le code et donc à le transposer dans mon vrai fichier. Peux-tu m'expliquer comment il fonctionne s'il te plaît ?

Merci !