Bonjour Minick, le forum
Tout simplement sensationnel...
Cependant, est ce que tu pourrais s'il te plait, m'expliquer le contenu de la macro...
Le code me parait tellement compliqué...
Merci pour la macro et tes futures explications...
le petit suisse
Sub copie_Action()
Dim i As Integer
Dim NbrLigneSrc As Integer, NbrLigneDst As Integer
Dim FeuilDst As String, FeuilSrc As String
NbrLigneSrc = Range("A65536").End(xlUp).Row
On Error GoTo CreerFeuil
For i = 2 To NbrLigneSrc
FeuilDst = Range("a" & i)
Range("A" & i).EntireRow.Copy Sheets(FeuilDst) _
.Range("A" & Sheets(FeuilDst).Range("A65536").End(xlUp).Row + 1)
Next
On Error GoTo 0
Exit Sub
CreerFeuil:
FeuilSrc = ActiveSheet.Name
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = FeuilDst
Sheets(FeuilSrc).Range("A1").EntireRow.Copy Sheets(FeuilDst).Range("A1")
Sheets(FeuilSrc).Activate
Resume
End Sub