Re, j'édite mon message...
J'ai utilisé l'enregistreur de macro pour faire ce dont je voulais. Ca fonctionne bien, mais c'est quand même un peu chelou.
Je vous mets l’entièreté de mon code (sur mon vrai fichier)
Sub Générer()
Dim c, Fiche, Fc, Classeur
Set Fiche = Workbooks("Fiche communale 3.xlsm").Sheets("FicheComPLH")
For Each c In Range("U10:U69" & Range("U69").End(xlUp).Row)
If c.Value <> "" Then
Workbooks("Fiche communale 3.xlsm").Sheets("FicheComPLH").Range("AB10") = "'" & c.Value
Workbooks("Fiche communale 3.xlsm").Sheets("FicheComPLH").Visible = True
Workbooks("Fiche communale 3.xlsm").Sheets("FicheComPLH").Copy Before:=Sheets(1)
ActiveSheet.Name = Range("AB10")
Set Fc = ActiveSheet
Workbooks("Fiche communale 3.xlsm").Sheets("FicheComPLH").Visible = True
End If
ActiveSheet.Copy
ActiveSheet.Name = Range("AB10")
ActiveSheet.Shapes.Range(Array("TextBox 27")).Select
Selection.Delete
Columns("S:AH").Select
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Columns("B:Q").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A3").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Next c
MsgBox "Les fiches sont générées !"
End Sub
Après le End If, je supprime tout ce que je ne veux plus voir apparaître. Les instructions se réalisent bien, mais du coup, j'ai un classeur par ligne dans la plage de cellules U10:U69. Or ! Je souhaiterai avoir un nouveau classeur avec n onglets (n correspondant au nombre de lignes pleines dans U10:U69)
J'arrive pas à savoir où/comment créer le nouveau classeur et comment affecter la création des onglets dans ce même classeur
Edit n° 2 : Tout est bon ! J'ai trouvé comment faire
Mon code n'est peut être pas le plus clean du monde, mais il fonctionne.
Encore merci à tous les deux. Je reviendrai sûrement vers vous d'ici quelques jours !