Dim iColumn As Integer
Dim ws As Worksheet
Set ws = Worksheets("Base RO")
'find first empty row in database
iColumn = ws.Cells(1, Columns.Count) _
.End(xlToLeft).Offset(0, 1).Column
ws.Cells(1, iColumn).Value = "Création"
ws.Cells(2, iColumn).Value = Date
ws.Cells(3, iColumn).Value = Me.G1.Value
ws.Cells(4, iColumn).Value = Me.G3.Value
ws.Cells(5, iColumn).Value = Me.G4.Value
ws.Cells(6, iColumn).Value = Me.G5.Value
ws.Cells(7, iColumn).Value = Me.G6.Value
ws.Cells(8, iColumn).Value = Me.G8.Value
ws.Cells(9, iColumn).Value = Me.G7.Value
ws.Cells(10, iColumn).Value = Me.G2.Value
ws.Cells(11, iColumn).Value = Me.G9.Value