Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 1) =1 + Cells(2, 1) + Cells(1, 5) + Cells(2, 5) = 4 Then LancerMacro
End Sub
Sub LancerMacro()
MsgBox "Bonjour Eddy !", vbInformation, "Ta macro"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 1) = 1 And Cells(2, 1) = 1 And Cells(1, 5) = 1 And Cells(2, 5) = 1 Then LancerMacro
End Sub
Sub LancerMacro()
MsgBox "Bonjour Eddy !", vbInformation, "Ta macro"
End Sub