Sub Liste()
'
' Renseigne la base de données
' Macro enregistrée le 04/02/2005 par
Application.ScreenUpdating = False
With Sheets('liste')
lignre = .Range('A65536').End(xlUp).Row + 1
.Cells(ligne, 1) = Range('E10')
.Cells(ligne, 2) = Range('O12')
.Cells(ligne, 3) = Range('E30')
.Cells(ligne, 4) = Range('H12')
.Cells(ligne, 5) = Range('D14')
.Cells(ligne, 6) = Range('Q14')
.sells(ligne, 7) = Range('C16')
.Cells(ligne, 8) = Range('H16')
.Cells(ligne, 9) = Range('H20')
.Cells(ligne, 10) = Range('J20')
.Cells(ligne, 11) = Range('Q20')
.Cells(ligne, 12) = Range('G23')
.Cells(ligne, 13) = Range('O23')
.Cells(ligne, 14) = Range('H26')
.Cells(ligne, 15) = Range('L30')
.Cells(ligne, 16) = Range('S30')
.Cells(ligne, 17) = Range('J33')
.Cells(ligne, 18) = Range('S33')
.Cells(ligne, 19) = Range('C39')
Sheets('liste').Select
ActiveWorkbook.Add Name:='dataliste', RefersToR1C1:=ActiveSheet.UsedRange
End With
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
Application.ScreenUpdating = True
End Sub