Sub CreationFeuilles()
Dim J As Long
Dim Ws As Worksheet
Application.ScreenUpdating = False ' Masque le raffraichissement écran
Set Ws = Sheets("Liste")
For J = 1 To Range("A" & Rows.Count).End(xlUp).Row ' Pour tous les nombres de la colonne A
If Not ExisteFeuille(Ws.Range("A" & J).Text) Then ' Si la feuille n'est pas présente
Sheets.Add after:=Sheets(Sheets.Count) ' On rajoute une feuille à la fin
ActiveSheet.Name = Ws.Range("A" & J) ' On renomme cette feuille
Sheets("Modèle").Cells.Copy Destination:=Range("A1") ' On y copie la page "Modèle" dedans
Range("B2") = Ws.Range("A" & J) ' On y copie le numéro en B2
Range("C2") = Ws.Range("B" & J) ' On y copie le nom en C2
End If
Next J
Ws.Select
End Sub
Function ExisteFeuille(Nom As String) As Boolean
' retourne True ou False qui indique la présence ou l'absence de la feuille
On Error Resume Next
ExisteFeuille = Sheets(Nom).Name <> ""
On Error GoTo 0
End Function