Salut,
J'ai modifié ma macro pour qu'elle fonctionne sur ton nouveau format.
Sub MacroMiseEnFormeExport()
'
' Macro1 Macro
'
'Numéro d'emplacement en Colonne AA
i = 1
For j = 13 To Int(Range("O65536").End(xlUp).Row) Step 15
Range("AA" & i) = Range("C" & j)
i = i + 1
Next
'Supprime "Emplacement " pour ne laisser que le numéro
Columns("AA:AA").Replace What:="Emplacement ", Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'Numéro d'article en Colonne AB
i = 1
For j = 18 To Int(Range("O65536").End(xlUp).Row) Step 15
Range("AB" & i) = Range("C" & j)
i = i + 1
Next
'Montant en Colonne AC
i = 1
For j = 18 To Int(Range("O65536").End(xlUp).Row) Step 15
Range("AC" & i) = Range("T" & j)
i = i + 1
Next
End Sub
Fichier -> Option -> Personnaliser le ruban
Dans le cadre à droite tu coches Développeur
Tu sors en faisant OK
Tu as maintenant un nouvel onglet "Developpeur dans ton Excel"
Tu vas dedans, enregistrer une macro.
Tu choisis Classeur de Macro Personnelles (Pour y avoir accès depuis n'importe quel classeur Excel) -> OK
Clique sur "Arrêter l'enregistrement"
Tu vas dans Visual Basic et tu remplace l'ensemble du code dans Module 1 par celui que je t'ai mis ci-dessus.
Tu enregistres et sors de Visual Basic
Tu as maintenant Accès à la macro qui met en forme tes données quand tu vas sur "Macros"