Si colonne comme par "B*" alors supprimer contenu

Bonsoir,

Je souhaite créer une macro qui recherche en colonne A toutes les valeurs qui sont B*

Si valeur de la cellule (en colonne A) est B* alors mettre contenu de la cellule à vide de la colonne A et colonne B (sans les supprimer les lignes)

Merci beaucoup pour votre aide

Exemple :

Résultat Attendu

Bonjour

Essayez ce code :

Sub test()
Dim i As Integer

For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    If Range("A" & i) Like "B*" Then Range("A" & i & ":B" & i).ClearContents
Next i
End Sub

Cordialement

Super merci !