Copier coller colonne d'un classeur à un autre

Bonjour,

Je suis débutant en VBA et j'aimerais crée un nouveau classeur comprenant 9 feuilles allant de FEUILLE1 à FEUILLE9 à partir de mon jeu de donnée ci joint et par exemple la FEUILLE 1 contiendra la cellule a ainsi que A , c ainsi que C , ... la FEUILLE2 contiendra la cellule b ainsi que B, r ainsi que R etc

J’espère avoir été compris

Merci beaucoup pour votre éventuel aide

Sub exx()

Application.DisplayAlerts = False
Dim classeur As Workbook
Set classeur = Workbooks.Add
ActiveWorkbook.SaveAs Filename:="exemple2.xls"

For i = 1 To 9
Sheets.Add after:=Sheets(Worksheets.Count)
ActiveSheet .Name = "FEUILLE" & i
Next
Sheets("feuil1").Delete
Application.DisplayAlerts = True

For i = 1 To 26
    For j = 1 To 9
    If Worksheets("Feuil1").Range("B" & i).Value = j Then Worksheets("Feuil1").Activate
    Range("B" & i).Select
    Selection.Copy
    Worksheets("FEUILLE" & j).Activate
    ActiveSheet.Paste
    Next j
Next i

End Sub

voila ce que j'ai essayé mais en vain

Bonjour redkad et bienvenue,

à tester,

Sub exx()
Dim classeur As Workbook
Application.DisplayAlerts = False

Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:="exemple2.xls"

For i = 1 To 9
    Sheets.Add after:=Sheets(Worksheets.Count)
    ActiveSheet.Name = "FEUILLE" & i
Next

Sheets("Feuil1").Activate

For i = 1 To 26
    n = Cells(i, "B")
    rw = Sheets("FEUILLE" & n).Cells(Rows.Count, "A").End(xlUp).Row + 1
    Sheets("FEUILLE" & n).Cells(rw, "A") = Cells(i, "A").Value
    Sheets("FEUILLE" & n).Cells(rw, "B") = Cells(i, "B").Value
    Sheets("FEUILLE" & n).Cells(rw, "C") = Cells(i, "C").Value
Next i

Sheets("Feuil1").Delete
Application.DisplayAlerts = True
End Sub

Bonjour,

merci beaucoup pour votre aide