Bonjour,
OK. Je comprends. Modifie le code suivant qui est dans le module "Feuil1" :
Private Sub BTCAL_ENTER_Click()
Range("B6") = Range("B4")
Range("B4") = ""
Range("D3:J3,L3:N3,P3:R3,T3:U3,W3:X3") = Range("B6")
End Sub
Par celui-ci et teste :
Private Sub BTCAL_ENTER_Click()
Range("B6") = Range("B4")
Range("B4") = ""
'boucle pour copier ligne par ligne et coller dans les lignes suivantes
For i = WorksheetFunction.CountA(Range("D3:D14")) + 2 To 3 Step -1
Range("D" & i & ":J" & i).Copy Range("D" & i + 1)
Range("L" & i & ":N" & i).Copy Range("L" & i + 1)
Range("P" & i & ":R" & i).Copy Range("P" & i + 1)
Range("T" & i & ":U" & i).Copy Range("T" & i + 1)
Range("W" & i & ":X" & i).Copy Range("W" & i + 1)
Next i
'première ligne reçoit la nouvelle donnée
Range("D3:J3,L3:N3,P3:R3,T3:U3,W3:X3") = Range("B6")
End Sub