Bouton macro avec trois conditions

If Range("B1").Value = "" Then 
MsgBox ("Veuillez saisir votre identité ci-dessus dans la cellule B1 merci.")
Exit Sub
End If

Sub test()
 Const Msg1 As String = "Veuillez saisir votre identité ci-dessus dans la cellule B1 merci."
 Const Msg2 As String = "Attention vous n'avez pas répondu à toutes les questions"
'CONDITION 1
With Worksheets("Feuil1")
If .Range("B1") = "" Then
        MsgBox Msg1
  Exit Sub
End If
'CONDITION 2
If Application.WorksheetFunction.CountA(.Range("D5,D16,D26,D36,D46,D56")) < 6 Then
        MsgBox Msg2
  Exit Sub
End If
'CONDITION 3
      Select Case .Range("Q8")
         Case Is <= "3"
           MsgBox "Coucou1"  'wordini.Show
         Case Is > 3
             MsgBox "Coucou2" 'worperf.Show
      End Select
End With
End Sub

Sub Rectangle70_QuandClic()
'CONDITION 1
If Range("B1").Value = "" Then 
MsgBox ("Veuillez saisir votre identité ci-dessus dans la cellule B1 merci.")
'CONDITION 2
ElseIf application.counta(Range("D5,D16,D26,D36,D46,D56")) <6 Then 
MsgBox ("Attention vous n'avez pas répondu à toutes les questions")
'CONDITION 3
ElseIf Range("Q8").Value <= 3 Then 
wordini.Show
elseIf Range("Q8").Value > 3 Then 
worperf.Show
end if
End Sub