Macro référence emplacement

Bonjour à tous,

Je ne suis pas très forte en macro et je n'arrive pas à mettre au point celle-ci en utilisant l'enregistrement mais je pense que ça ne doit pas être très compliqué pour quelqu'un qui si connaît....

En fait, j'ai une liste qui sort d'un logiciel indiquant la référence d'un produit en cellule A1 et son emplacement en cellule A2 et ainsi de suite pour toutes les références présentes dans notre entrepôt...

Pour intégrer ce fichier dans un autre logiciel, j'ai besoin d'avoir la référence produit en cellule A1 et l'emplacement en face en B1.

Je voulais faire une macro qui prenne tous les emplacements en A2; A4; A6... etc et les "colle" en B1; B3; B5 et ensuite de supprimer les lignes vides (lignes 2; 4; 6 etc). et ce soit jusqu'en bas du fichier ou jusqu'à temps qu'il y a des lignes...

Je mets un petit fichier pour que se soit plus claire...

En Feuil1, c'est un exemple avec le fichier tel qu'il sort du premier logiciel.

En Feuil2, c'est ce que je souhaiterai avoir après avoir fait tourner la macro.

Si je n'ai pas été très claire, n'hésitez pas à me poser des questions...

Merci d'avance pour votre aide!

Bonne journée

Bonjour,

un exemple en retour dans ton fichier, sur la feuille 3

Pour l'instant j'ai associé la macro à un bouton, à voir par la suite quel sera le meilleur moyen de procédé.

Cordialement,

Bonjour

Bonjour Zirak

Ma contribution

Bonjour,

Vous êtes trop fort!

Merci beaucoup,

Bonne journée,

Mayou

Bonjour,

un essai en pièce jointe. Résultat sur la Feuille3 ... à adapter

Option Explicit
Dim DerLig As Long, i As Long

Sub SeparSup()
DerLig = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To DerLig Step 2
    Feuil3.Range("A" & i) = Feuil1.Range("A" & i)
    Feuil3.Range("B" & i) = Feuil1.Range("A" & i + 1)
Next i
    For i = Feuil3.Range("A65536").End(xlUp).Row To 2 Step -1
        If Feuil3.Cells(i, 1) = "" Then Feuil3.Rows(i).Delete
    Next i
End Sub

Edit: Un petit peu à la bourre moi

Bonne Journée