bonjour,
Bien que je n'y connaisse rien en compta/paie ça me semble relativement simple :
Déjà j'ai rajouté une feuille pour faire un mappage un peu plus lisible de la feuille 1
Après, la macro suivante te prépare la matrice source :
Option Explicit
Public THeadS
Public TDataS 'Matrice Source
Sub Extract()
Dim rng As Range
Set rng = [A1].CurrentRegion
THeadS = rng.Resize(1, rng.Columns.Count).Value
With rng
Set rng = .Offset(1).Resize(.Rows.Count - 1)
End With
'Affichage du Header en transposé pour un mappage facile
Feuil2.[A1].Resize(UBound(THeadS, 2), 1) = WorksheetFunction.Transpose(THeadS)
'Sur cette feuille tu peux lire en clair la colonne affectée à ta Source/Cible
TDataS = rng.Value2
'Et maintenant YAPUKA se balader dans TDatas
'pour faire tes correspondances avec la matrice Cible
End Sub
TAPUKA joueravec tes 2 matrices...
A+