un exemple de code; comment je peux le répéter sur la ligne suivante quand j'enregistre une facutre,
Sub clientn()
'
' clientn Macro
'
'
Range("A2:L2").Select
Selection.AutoFill Destination:=Range("A2:L4"), Type:=xlFillCopy
Range("A2:L4").Select
Range("J3:J4").Select
Selection.ClearContents
Range("K3").Select
Selection.Copy
Range("J3").Select
ActiveSheet.Paste
Range("K2:K3").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("K4").Select
Selection.ClearContents
Range("L2").Select
Selection.Copy
Range("K4").Select
ActiveSheet.Paste
Range("L3:L4").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
cordialement