Bonjour,
Je n'ai pas tout compris.
Le code que tu as indiqué se déclenche quand tu modifies le contenu des cellules de I1 à I5 dans la feuille 1 uniquement. A quoi correspond ActiveSheet.Shapes("essai").Select car je n'ai rien vu qui s'appelle essai à part la macro déclenchée par le bouton.
Mais le bouton déclenche ce code :
Sub essai()
'
' essai Macro
'
ActiveSheet.Range("A2").Select
ActiveSheet.Range("A3:A4", ActiveCell.End(xlToRight).Offset(1, 0)).Select
Selection.Copy
ActiveSheet.Range("A3").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Tu veux copier lequel ?
A+