Exportation

[aerjo1]

Bonjour à tous
Actuellement j'ai une macro qui exporte les critères demandés sur une autre feuille à partir d'un tableau de 24 colonnes. J'aimerais si cela est possible récupérer les même données ( colonnes A B C D) + les données de la colonne X à la suite des autres données je vous joins le tableau avec le résultat attendu.
Voici la macro actuelle
Merci pour votre aide

Sub Licence()
ligne = 2
Sheets("Licence").Cells.ClearContents
Sheets("Reservation").Range("A1:d1").Copy Destination:=Sheets("Licence").Range("A1")
tablo = Sheets("Reservation").Range("A2:g" & Sheets("Reservation").Range("A" & Rows.Count).End(xlUp).Row + 1)
For n = LBound(tablo, 1) To UBound(tablo, 1)
If tablo(n, 7) = 3 Then
Sheets("Reservation").Range("A" & n + 1 & ":d" & n + 1).Copy Destination:=Sheets("Licence").Range("A" & ligne)
ligne = ligne + 1
End If
Next
Sheets("Licence").Select
Range("d1").Select
End Sub