Dim lig As Long
With Feuil2
lig = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(lig, 1).Value = Reference
.Cells(lig, 2).Value = Palier
.Cells(lig, 3).Value = Arret
.Cells(lig, 4).Value = RefAffaire
.Cells(lig, 5).Value = Intitule
.Cells(lig, 6).Value = DonneurOrdre
.Cells(lig, 7).Value = Date
.Cells(lig, 8).Value = FNC
.Cells(lig, 9).Value = FCE
.Cells(lig, 11).Value = Entreprise
.Cells(lig, 12).Value = CategorieREX
.Cells(lig, 13).Value = SousCategorieREX
.Cells(lig, 14).Value = SaisieREX
.Cells(lig, 15).Value = Createur
.Cells(lig, 17).Value = 1
.Cells(lig, 18).Value = Site
.Cells(lig, 19).Value = Groupe
.Cells(lig, 20).Value = RefNum
End With