Bonjour,
Tu as bien débuté ton code..
Où bloques-tu ?
As tu essayé de réaliser la manipulation en utilisant l'enregistreur de macro puis en le modifiant à ta convenance ?
Enfin la macro donnerai qq chose comme :
Sub DeplaceF()
Dim NomClaDest As String
NomClaDest = "Classeur3" ' A modifier par le nom de ton classeur de déstination
Dim Feuille As Worksheet
Dim NomFeuil As String
Application.ScreenUpdating = False
For Each Feuille In ThisWorkbook.Sheets
NomFeuil = Feuille.Name
Debug.Print NomFeuil
If Left(NomFeuil, 1) = 2 Then
Debug.Print "Déplacement de la feuille : " & NomFeuil
Feuille.Move After:=Workbooks(NomClaDest).Sheets(Sheets.Count)
End If
Next
Application.ScreenUpdating = True
End Sub
Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI