Sub test()
'Recherche de la dernière ligne de la colonne B
LastRowB = Sheets("Feuil1").Range("B" & "65535").End(xlUp).Row
'Boucle pour toute les ligne de la colonne B
For i = 1 To LastRowB
NumRech = Sheets("Feuil1").Range("B" & i).Value 'Valeur de la cellule actuellement traitée (en fonction de l'itération de la boucle
'Recherche du numéro dans la colonne A
Set ValTrouve = Sheets("Feuil1").Range("A:A").Find(what:=NumRech, lookat:=xlWhole)
'Test pour savoir si ce numéro est présent dans la colonne A
If Not ValTrouve Is Nothing Then
'Si oui, on l'efface
'Regarde l'adresse de la colonne (lettre) tu copie une des lignes ci-dessous et tu colle en dessous
'et tu met la lettre de la colonne a effacer
'Dans cet exemple on effacer les colonne de A a D
Sheets("Feuil1").Range("A" & ValTrouve.Row).ClearContents
Sheets("Feuil1").Range("B" & ValTrouve.Row).ClearContents
Sheets("Feuil1").Range("C" & ValTrouve.Row).ClearContents
Sheets("Feuil1").Range("D" & ValTrouve.Row).ClearContents
Sheets("Feuil1").Range("D" & ValTrouve.Row).ClearContents
End If
'On passe à la cellule suivante
Next
End Sub