Vérifier si une plage de cellule

Private Sub Worksheet_Change(ByVal Target As Range)

' total_enregistrements = derniere cellule non vide de la colonne ok de lafeuille bd 
total_enregistrements = Sheets("bd").Cells(65536, 6).End(xlUp).Row

set P / variable objet changé par P() / variable tableau.
' set P = Range("F3:F" & [total_enregistrements] + 2)
Dim P() As Variant
P = Range("F3:F" & total_enregistrements)

Dim test As Boolean
' initialise la variable a vrais
test = True

' Sil il manque un ok le test est faux
For i = 1 To UBound(P, 1)
 If P(i, 1) <> "ok" Then
    test = False    
 End If
Next i

' si différent de faut (le test est effectué) et la condition remplis
' si c'est faut le test est pas réalisé
If test <> False Then
    MsgBox "vous avez évalué tous les enregistrements"
    Sheets("bd").Visible = xlVeryHidden
    Sheets("Recap").Select
End If

Erase P        ' décharge lavariable tableau
test = Empty ' décharge la variable
i = Empty     ' décharge la variable

End Sub