Dim fin As Long
Dim haute As Integer
Verif1
fin = finf11 + 1
haute = trans.Cells(nohote, 1)
Feuil11.Cells(fin, 1) = CDate(Now): Feuil11.Cells(fin, 1).NumberFormat = "dd/mm/yyyy"
Feuil11.Cells(fin, 2) = nohote
Feuil11.Cells(fin, 3) = CDate(TxtDate): Feuil11.Cells(fin, 3).NumberFormat = "dd/mm/yyyy"
Feuil11.Cells(fin, 4) = Réf
Feuil11.Cells(fin, 8) = "x"