if, elseif ...

With Sheets("predim")
If .[AK103] = False Then
.Rows("107:113").EntireRow.Hidden = False
Else
.Rows("107:113").EntireRow.Hidden = True
End If
If .[AK103] = True Then
.Rows("105:106").EntireRow.Hidden = True
Else
.Rows("105:106").EntireRow.Hidden = False
End If
End With
End Sub

Sub Caseàcocher173_Cliquer()
With Sheets("predim")
If .[AK103] = False Then
    .Rows("105:106").Hidden = False  ' La commande EntireRow semble inutile puisque l'on définit déjà la ligne entière ?!
    .Rows("107:113").Hidden = False
Else
    .Rows("105:106").Hidden = True
    .Rows("107:113").Hidden = True
End If
End With
End Sub

Sub Caseàcocher173_Cliquer()
With Sheets("predim")
If .[AK103] = False Then
    .Rows("105:113").Hidden = False
Else
    .Rows("105:113").Hidden = True
End If
End With
End Sub

Sub Caseàcocher173_Cliquer()
    With Worksheets("predim")
        .Rows("105:113").Hidden = .[AK103].Value
    End With
End Sub

Sub Caseàcocher173_Cliquer()
With Worksheets("predim")
   .Rows("105:106").EntireRow.Hidden = .[AK103].Value
   .Rows("107:113").EntireRow.Hidden = Not .[AK103].Value
   End With
End Sub