saisie de donnée automatique

Sub toto()
Dim i As Long, j As Long, oDat
   With Me.Range(Me.UsedRange.Cells(10, 1).CurrentRegion, Me.Cells.SpecialCells(xlCellTypeLastCell))
      oDat = .Resize(.Rows.Count + 1, .Columns.Count).Offset(-1, 0).Value
      For i = 1 To UBound(oDat, 1)
         For j = 1 To UBound(oDat, 2)
            If Not IsEmpty(oDat(i, j)) Then Exit For
         Next j
         If j > UBound(oDat, 2) Then Exit For
      Next i
      For j = 1 To UBound(oDat, 2)
         oDat(1, j) = Me.Cells(4, j).Value
      Next j
   .Value = oDat
   End With
End Sub

         oDat(1, j) = Me.Cells(4, j).Value[COLOR="Red"][B]: Me.Cells(4, j).Value = Empty[/B][/COLOR]

Sub toto()
Dim i As Long, j As Long, oDat
   With Me.Range(Me.UsedRange.Cells(10, 1).CurrentRegion, Me.Cells.SpecialCells(xlCellTypeLastCell))
      oDat = .Resize(.Rows.Count + 1, .Columns.Count).Offset(-1, 0).Value
      For j = 1 To UBound(oDat, 2)
         oDat(1, j) = Me.Cells(4, j).Value: Me.Cells(4, j).Value = Empty
      Next j
   .Value = oDat
   End With
End Sub

Sub toto()
Dim i As Long, j As Long, oDat
   With Me.Range(Me.UsedRange.Cells(10, 1).CurrentRegion, Me.Cells.SpecialCells(xlCellTypeLastCell))
   [COLOR="SeaGreen"][B]'Désigne la plage de résultats : Dans ce classeur, c'est
   'A10:K47. On aurait pu écrire
   'With Me.Range("A11:K47")
   'Mais en l'écrivant comme je l'ai fait, vous pouvez ajouter des colonnes et des lignes à cette plage.
   'Attention toutefois : il faut une colonne vide à droite du tableau.[/B][/COLOR]
      oDat = .Resize(.Rows.Count + 1, .Columns.Count).Offset(-1, 0).Value
      [COLOR="SeaGreen"][B]'La variable 'oDat' prend les valeurs de la plage ci-dessus,plus la ligne précédente (ligne 10).[/B][/COLOR]
      For j = 1 To UBound(oDat, 2)
         oDat(1, j) = Me.Cells(4, j).Value: Me.Cells(4, j).Value = Empty
      Next j
      [COLOR="SeaGreen"][B]'Cette boucle recopie les valeurs de la ligne de saisie dans le tableau 'oDat' et
      'efface les valeurs de la ligne de saisie.[/B][/COLOR]
   .Value = oDat [COLOR="SeaGreen"][B]'On recopie le tableau dans la plage de résultats.[/B][/COLOR]
   End With
End Sub