Sub Creer_Feuilles()
Dim MaCellule As Range, Mysheet As Worksheet, MyName$
Range("A5", Range("A5").End(xlDown)).Select
Dim sh As Worksheet
Set sh = Feuil23
sh.Range("A5", Range("A5").End(xlDown)).Select
MaCellule = Sheets("creation").Range("A5", Range("A5").End(xlDown)).Text
MaCellule.Select
For Each MaCellule In Selection 'liste des immats
MyName = MaCellule.Value
If MyName <> "" Then
On Error Resume Next
Set Mysheet = Sheets(MyName)
On Error GoTo 0
If Mysheet Is Nothing Then Sheets.Copy.Sheets("Saisi Go Modele").Copy After:=Sheets(1)
Sheets("saisi Go Modele 2").Copy After:=Sheets(1) = "Saisi Go " & MyName
End If
Next MaCellule
Sheets("Creation").Select
Range("A5", Range("A5").End(xlDown)).Select
For Each MaCellule In Selection 'liste des immats
MyName = MaCellule.Value
If MyName <> "" Then
On Error Resume Next
Set Mysheet = Sheets(MyName)
On Error GoTo 0
If Mysheet Is Nothing Then Sheets.Copy.Sheets("Ventil MODELE").Copy After:=Sheets(1)
Sheets("ventil MODELE 2").Copy After:=Sheets(1) = "Ventil " & MyName
End If
Next MaCellule
End Sub