Sub coup()
If Cells(1, 1).Value = '1' Then
Range('A2:A4').Select
Selection.Cut
Range('B2').Select
ActiveSheet.Paste
End If
End Sub
Sub coup()
If Cells(1, 1).Value = '1' Then
Range('A2:A4').Select
Selection.Cut
Range('B2:B4').Select 'modif ici
ActiveSheet.Paste
End If
End Sub