Fixer print area jusqu'à la ligne avec les texts spécifiques

Bonjour,

Je voudrais fixer une range de print area de colonne B - K jusqu'a la ligne avec les texts" n.a. not availabe". Voici mes codes: 

Sub Printarea()

Dim lr As Long, r As Long, rng As Range

    With ActiveSheet

lr = .Range("C" & Rows.Count).End(xlUp).Row

For r = 1 To lr
    If InStr(1, LCase(Range("C" & r)), "n.a.: not available") <> 0 Then
    
    .PrintArea = Range("B1:K" & lr)
    
End If

Next r

End With
End Sub

Mais ça ne marche pas. Est-ce que quelqu'un peut m'aider avec ça?

Merci beaucoup!