Sub Transfert()
'Macro par DAN pour Marc le 17/01/2006
'Macro pour fil : [B]Lien supprimé[/B]
Dim i As Integer
Dim lig As Integer
Dim ligne As Integer
lig = Sheets('Données').Range('F65536').End(xlUp).Row
For i = lig To 3 Step -1
With Sheets('AP_Encours')
ligne = .Range('a65536').End(xlUp).Row + 1
.Cells(ligne, 1) = Sheets('Données').Cells(i, 6).Value
.Cells(ligne, 2) = Sheets('Données').Cells(i, 3).Value
.Cells(ligne, 3) = Sheets('Données').Cells(i, 7).Value
.Cells(ligne, 4) = Sheets('Données').Cells(i, 10).Value
.Cells(ligne, 5) = Sheets('Données').Cells(i, 11).Value
.Cells(ligne, 6) = Sheets('Données').Cells(i, 12).Value
.Cells(ligne, 7) = Sheets('Données').Cells(i, 4).Value
.Cells(ligne, 8) = Sheets('Données').Cells(i, 16).Value
.Cells(ligne, 9) = Sheets('Données').Cells(i, 18).Value
.Cells(ligne, 11) = Sheets('Données').Cells(i, 23).Value
.Cells(ligne, 12) = Sheets('Données').Cells(i, 21).Value
.Cells(ligne, 13) = Sheets('Données').Cells(i, 22).Value
End With
Next i
End Sub