Effacement cellule pour nouvelle saisie

Bonjour,

J'ai cette macro, la recopie fonctionne bien mais elle n'arrive pas a effacer les cellules concernées, je ne trouve pas la correction

Sub Ajouter_Ligne()

Dim wsSaisie As Worksheet
Dim wsTableau As Worksheet
Dim ligne As Long
Dim plages As Range

Set wsSaisie = Sheets("Formulaire")
Set wsTableau = Sheets("Liste")

' Trouver la première ligne vide
ligne = wsTableau.Cells(wsTableau.Rows.Count, 1).End(xlUp).Row + 1

' Copier uniquement les valeurs
wsTableau.Cells(ligne, 1).Value = wsSaisie.Range("M4").Text
wsTableau.Cells(ligne, 2).Value = wsSaisie.Range("M6").Value
wsTableau.Cells(ligne, 3).Value = wsSaisie.Range("M8").Value
wsTableau.Cells(ligne, 4).Value = wsSaisie.Range("U4").Value
wsTableau.Cells(ligne, 5).Value = wsSaisie.Range("U6").Value
wsTableau.Cells(ligne, 6).Value = wsSaisie.Range("U8").Value

'' effacer les cellules de saisie
wsSaisie.Range("M4,M6,M8,U4,U6,U8").ClearContents

End Sub

Merci

Bonjour

Un exemple du fichier serait bien utile pour résoudre le problème

Crdlt

Ce serait sympa de dire comment tu as résolu ton problème