coller data/descendre d'1 case et coller autr data

Private Sub CommandButton1_Click()
If Range('B1') = '' Then
Range('B1').Value = Time
Else
Range('B65536').End(xlUp).Offset(1, 0).Value = Time
End If
End Sub

Cliquez pour agrandir...

Option Explicit

Sub Macro1()
Dim li As Long 'déclare la variable li (LIgne)
Dim d As Range 'déclare la variable d (Destination)
Dim c As Worksheet 'déclare la variable c (Cible)
Dim x As Byte 'déclare la variable x
Set c = Sheets('feuil4') 'définit la variable c
For x = 1 To 3 'boucle sur trois onglets
If c.Range('A10') = '' Then 'condition si A10 (feuil4) est vide
Set d = c.Range('A10') 'définit la variable d
Else 'sinon
li = c.Range('A65536').End(xlUp).Row + 1 'définit la variable li
Set d = c.Range('A' & li) 'définit la vriable d
End If 'fin condition
Sheets('feuil' & x).Range('A1:C1').Copy Destination:=d 'copie/colle A1:C1 de la feuille
Next x 'prochaine onglet de la boucle
End Sub

Cliquez pour agrandir...