Sub selectionne()
If Cells(13, 1) = "-" Or Cells(15, 1) = "-" Then MsgBox "Pas Bon"
If Cells(13, 1) = "Eau Chaude" And Cells(15, 1) = "Economique" Then
Feuil5.Select
ElseIf Cells(13, 1) = "Eau Chaude" And Cells(15, 1) = "Standard" Then
Feuil2.Select
ElseIf Cells(13, 1) = "Electrique" And Cells(15, 1) = "Economique" Then
Feuil4.Select
ElseIf Cells(13, 1) = "Electrique" And Cells(15, 1) = "Standard" Then
Feuil3.Select
End If
End Sub