Bonjour,
voici le code adapté
Sub aargh()
With Sheets("Feuil2") 'nom de la feuille à adapter
.Columns("G:N").Delete shift:=xlToLeft
dl = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To dl
If Left(.Cells(i, 1), 6) = "Numéro" Then
Set num = .Cells(i, 1)
Else
k = k + 1
If .Cells(i, 1) <> "Type" Then num.Copy .Cells(k, 7)
.Cells(i, 1).Resize(, 4).Copy .Cells(k, 8).Resize(, 4)
End If
Next i
Exit Sub 'supprimer cette instruction pour enlever les colonnes A à F
.Columns("A:F").Delete shift:=xlToLeft
.Columns("A:F").AutoFit
End With
End Sub