Salut,
difficile de croire que la macro enregistrée avec le fichier se soit envolée ou alors tu as un exemplaire rare d'Excel-Cambrioleur!
Effectivement, si tu ajoutes des données et que tu lances la macro, ça va te faire un joli paquet de doublons!
La solution : effacer ces données brutes (via la macro) après chaque traitement : UsedRange.ClearContents
Puisqu'elles sont dispatchées dans leur feuille respective, en as-tu encore besoin?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
If Not Intersect(Target, Range("A1")) Is Nothing Then
Cancel = True
iRow = Range("A" & Rows.Count).End(xlUp).Row
For x = 1 To iRow
With Worksheets(CStr(Cells(x, 2)))
iRowT = .Range("A" & Rows.Count).End(xlUp).Row + 1
If .Cells(1, 1) = "" Then iRowT = 1
.Range("A" & iRowT).Resize(1, 26).Value = Range("A" & x & ":Z" & x).Value
End With
Next
UsedRange.ClearContents
End If
'
End Sub
A+