Effacer une partie d'une ligne en fonction d'une cellule sel

Bonjour à vous tout(e)s,

Je cherche à effacer une partie d'une ligne en fonction d'une cellule sectionnée.

Exemple de A10 à F10 si j'ai sélectionné la ligne 10 ou A4 à F4 si je sélectionne la ligne 4, je coince...

Sub Effacer_Données()

'With Selection.Select

With Rows(ActiveCell.Row).Select

Selection.ClearContents

End With

End Sub

Merci de votre aide et excellentes fêtes à tous le forum

Bonjour,

Comme ça par exemple :

Sub Effacer_Données()
    ligne = ActiveCell.Row 'variable qui collecte le numéro de la ligne active
    Range(Cells(ligne, 1), Cells(ligne, 6)).ClearContents
End Sub

Bonjour Raja,

Super! C'est exactement cela.

Je joins le fichier, cela pourrait aider d'autres personnes...

Bonnes fêtes et encore merci!