Bonjour, je souhaite copier les données à condition que les en-têtes de colonnes soient d'une feuille à l'autre. Les valeurs sont dans la colonne A de la première feuille et les mêmes valeurs sont dans la première ligne de la deuxième feuille. Ce code a été obtenu, mais il est copié dans la même ligne. Je souhaite le modifier pour le copier dans la première ligne vierge car les copies sont constamment répétées et je ne veux pas perdre les anciennes données. Merci
Sub Copie()
Dim Tablo1(), Tablo2(), fin As Long, i As Long
fin = Sheets("recherche").Range("A2").End(xlDown).Row
ReDim Tablo1(2, fin - 3)
ReDim Tablo2(fin - 3)
For i = 0 To fin - 3
Tablo1(1, i) = Sheets("recherche").Range("A" & i + 3).Value 'colonne A
Tablo1(2, i) = Sheets("recherche").Range("B" & i + 3).Value 'colonne B
' Debug.Print Tablo1(1, i) & ":" & Tablo1(2, i)
Tablo2(i) = Sheets("Feuil1").Cells(1, i + 2).Value
' Debug.Print Tablo2(i)
Next
For i = 0 To fin - 3
For j = 0 To fin - 3
If Tablo1(1, i) = Tablo2(j) And Tablo1(2, i) <> vbNullString Then
Sheets("Feuil1").Cells(2, j + 2) = Tablo1(2, i)
End If
Next
Next
End Sub