Recherche code vba

bonjour
je cherche un code vba permettant de copier des donnes sur une autre feuille avec la même disposition que la feuil 2 du fichier joint et mes donnes de départ son dans la feuille donne.
merci d'avance pour votre aide

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub test()
Dim r As Range
Dim l As Long
Set r = Sheets("donnes").Range("A1").CurrentRegion
For l = 2 To r.Rows.Count
    ecrire l, r
Next
End Sub
Sub ecrire(l As Long, r As Range)
Dim T()
Dim C As Long
Dim I As Long
ReDim T(r.Columns.Count, 3)
For C = 2 To r.Columns.Count
If UCase(Trim("" & r(l, C))) = "X" Then
    T(I, 0) = r(l, 1)
    T(I, 2) = r(1, C)
    I = I + 1
End If
Next
Sheets("Feuil2").Range("A" & Sheets("Feuil2").Range("A1").CurrentRegion.Rows.Count + 1 & _
":C" & Sheets("Feuil2").Range("A1").CurrentRegion.Rows.Count + 1 + I) = T
End Sub

bonjour
merci de votre réponse c'est tous ce qui me fallait