Sélection en fonction d'une valeur

Bonjour le forum,

J'aimerais une macro capable de sélectionner uniquement les lignes ou est écrit le mot ok.

Ci joint un exemple plus explicite

Merci pour votre aide

Cordialement

Bonjour CDB, bonjour le forum,

Peut-être comme ça :

Sub Bouton1_Cliquer()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
Dim PL As Range 'déclare la variable PL (PLage)

Set O = Worksheets("Sheet1") 'définit l'onget O
DL = O.Cells(Application.Rows.Count, "C").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne C de l'onget O
Set PL = O.Range("A1") 'initialise la plage PL (une seule cellule)
For I = 2 To DL 'boucle sur les lignes 2 à DL
    If O.Cells(I, "C").Value = "ok" Then 'condition : si la cellule en colonne C de la boucle vaut "ok"
        'définit la plage PL (=la ligne I si PL ne contenait qu'une cellule cellule, sinon l'union de PL et de la ligne I)
        Set PL = IIf(PL.Cells.Count = 1, O.Rows(I), Application.Union(PL, O.Rows(I)))
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
PL.Select 'sélectionne la plage PL
End Sub

merci beaucoup