boucle - ok- mais effacer avant report des donnees

[happymarmotte]

bonjour

je reviens avec une petite question technique que je n`arrive pas a resoudre
le code suivant me permet bien d`envoyer les donnees ds la feuille "DATA" vers la feuille client (N feuilles avec 1 feuille par client) que je souhaite mais avant de coller les donnees, je voudrais effacer ds la feuille client que j`ai selectionne les donnees en A61:Z150.
j`ai ma feuille client et je dis a la macro d`allouer les donnees si un X" est en colonne B de la feuille client. En col. j`ai le nom de la feuille du client.

oui, la macro alloue les donnees mais en fait avant de coller les donnees en A61 (en A60 j`ai le tritre de la colonne), il faut que j`efface les donnees existantes car sinon je cumule les donnees et ma facture client n`est pas correcte.

Je mets ou le CLEARCONTENTS ou Value="" ds mon code car j`ai essaye plusieurs choses mais rien ne marche??

merci a vous

happymarmotte

Sub Create_Invoice()
Dim nbl1 As Long, nbl2 As Long, nblx As Long
Dim i As Long, J As Long
nbl1 = Sheets("DATA").Range("A65000").End(xlUp).Row
nbl2 = Sheets("CLIENTS").Range("A65000").End(xlUp).Row
Sheets("DATA").Select
With Sheets("CLIENTS")
For i = 2 To nbl1
For J = 2 To nbl2
If Cells(i, 1).Value = .Cells(J, 5) And _
Cells(i, 2).Value = .Cells(J, 4) And _
"X" = .Cells(J, 2) Then

feuille = .Cells(J, 3).Value

nblx = Sheets(feuille).Range("A65535").End(xlUp).Row + 1

For k = 1 To 10
voila ce que j`ai mets mais la boucle me colle 90 lignes de A61 a A150 donc du coup avec cette methode d`effacement, j`efface toutes les lignes que je colle sauf la derniere.

'#### Sheets(feuille).Range("a61:Z150").Value = ""

Sheets(feuille).Cells(nblx, k) = Cells(i, k)
Next k
End If

On Error Resume Next

Next J
Next i
End With
End Sub
' JE CHERCHE A VIDER DS LA FEUILLE LA ZONE A61:Z150
'AVANT DE COLLER DE NOUVEAU LES DONNEES
je colle ou le code?

je vous remercie

happymarmotte