Bonjour,

Je suis bloquée sur cette macro que j'ai récupérée sur internet. Elle correspond presque à ce que je souhaite faire ....J'ai bien tenté de la modifier moi-même mais sans succès !
J'ai donc besoin de l'aide du forum pour que la macro ne fasse pas référence à la colonne A mais à la colonne active.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Creation()
Dim J As Long
Dim Ws As Worksheet
  Application.ScreenUpdating = False
  Set Ws = ActiveSheet
  For J = 25 To Ws.Range("A" & Rows.Count).End(xlUp).Row
    If FeuilleExiste(Ws.Range("A" & J).Value) = False Then
      Sheets.Add after:=Sheets(Sheets.Count)
      ActiveSheet.Name = Ws.Range("A" & J)
    End If
  Next J
  Ws.Select
End Sub
Merci de votre aide
Gremlins49