Option Explicit
Sub Valeur_supprimer()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Feuil1")
For i = .Cells(Rows.Count, "b").End(xlUp).Row To 11 Step -1
If .Range("b" & i) = "PA" Then .Range("b" & i).Resize(, 7).Value = ""
Next i
End With
Application.ScreenUpdating = True
End Sub