Modifier macro pour copie entre deux feuilles

Bonjour,

pouvez vous m'aider à modifier cette Macro pour que la copie de la feuille "FACTURE" s'effectue entre les feuilles "DEBUT et "FIN"

' ajouter feuille vierge en fonction d'une liste contenu dans onglet familles
Sub Ajouter_Feuilles()
Dim J As Long
Dim Ws As Worksheet

  Application.ScreenUpdating = False
  Set Ws = ActiveSheet
  For J = 4 To Ws.Range("B" & Rows.Count).End(xlUp).Row
    If Not FeuilleExiste(Ws.Range("B" & J).Value) Then
      Sheets("FACTURE").Copy after:=Sheets(Sheets.Count)
      ActiveSheet.Name = Ws.Range("B" & J)
      Range("B11") = ActiveSheet.Name ' Met le nom de la feuille dans la cellule B11
    End If
  Next J
  Ws.Select
End Sub

merci pour votre aide !

Bonjour fmartini, le forum,

Essaie de remplacer

 Sheets("FACTURE").Copy after:=Sheets(Sheets.Count)

par

 Sheets("FACTURE").Copy after:=Sheets("DEBUT")

cordialement,

Bonjour,

Merci pour votre réponse c'est parfait !

Bonjour (..)

Petit détail mais qui a tout de même son importance...

Dans ton code tu utilises

Application.ScreenUpdating = False

en début de ta procédure, je te conseille de remettre "toujours" en fin de procédure (dans ton cas après ton ws.select) le code inverse sinon tu risques de te retrouver avec des affichages bizarres ou pire des feuilles qui agissent sur d'autres...

Application.ScreenUpdating = True