Cellule différente a effacer sur une même ligne

bonjour a tous,

j'ai une question,

comment effacer le contenue des cellules d'une même ligne?

si, je choisi la ligne 22 de mon tableau et que je voudrais effacer les cellule de la colonne A,B,C,F,J,M,P.sur cette ligne

par un bouton a même le tableau

quelle serait le code VBA?

j'ai rien trouver a date sur le sujet.

Merci a vous de bien vouloir m'aider.

Bonjour,

Une possibilité :

Sub effacer()
    Dim lig As Long, plage As Range
    lig = InputBox("Ligne à effacer")
    Set plage = Application.Intersect(Rows(lig), Range("A:C,F:F,J:J,M:M,P:P"))
    plage.ClearContents
End Sub

Bonjour Raja et le forum,

cela fonctionne bien et merci de votre aide cela est bien apprécier.

longue vie a ce forum.