Sub Conditions()
    Dim age As Integer
    age = Cells(1, 1)
    
    ' Si age plus grand que 50 alors...
    If age > 50 Then
        MsgBox age & " est plus grand que 50"
    ' Sinon
    Else
        MsgBox age & " est plus petit que 50"
    End If
    
End Sub

Sub Condition2()
    Dim isPremium As Boolean
    isPremium = True
    
    If isPremium Then
        MsgBox "Tu es premium"
    End If
    
End Sub

Sub Condition3()
    If IsNumeric(Range("D12")) Then
        MsgBox "C'est bien un nombre"
    Else
        MsgBox "Ce n'est pas un nombre"
    End If
End Sub

Sub Condition4()
    Dim nb As Integer
    nb = Range("A1")
    If nb = 10 Then
        MsgBox "nb = 10"
    ElseIf nb = 20 Then
        MsgBox "nb = 20"
    ElseIf nb = 30 Then
        MsgBox "nb = 30"
    ElseIf nb = 40 Then
        MsgBox "nb = 40"
    Else
        MsgBox "nb = ?"
    End If
End Sub

' Tests possibles :
' =, <, >, <=, >=, <>


' Condition avec 2 tests et opérateur And
Sub Condition5()
    Dim nb1 As Integer
    Dim nb2 As Integer
    nb1 = 10
    nb2 = 25
    
    If nb1 = 10 And nb2 = 20 Then
        MsgBox "nb1 = 10 et nb2 = 20"
    Else
        MsgBox "Blablabla"
    End If
End Sub

Sub Condition6()
    Dim nb1 As Integer
    Dim nb2 As Integer
    nb1 = 15
    nb2 = 20
    
    If nb1 = 10 Or nb2 = 20 Then
        MsgBox "nb1 = 10 ou nb2 = 20"
    Else
        MsgBox "Blablabla"
    End If
End Sub