Sub MaMacro()
Select Case Cells(1, 1).Value
Case "Pomme"
Select Case Cells(2, 1).Value
Case "Golden"
Call Macro1
Case Else
Call Macro2
End Select
Case "Poire"
Select Case Cells(2, 1).Value
Case "Williams"
Call Macro3
Case Else
Call Macro4
End Select
End Select
End Sub