Tous les enregistrements du fichier ne sont pas édités

Bonjour à tous,

En Excel vba, je souhaiterais éditer les informations liés à un Matricule donné. La particularité est que pour un matricule qui dispose de plus d'1 enregistrement, j'utilise quelques données du 1er enregistrement de ce matricule pour traiter l'entête et les reste des données toujours de 1er enregistrement pour remplir les zones de "Détails".
Ainsi, je fais les remarques ci-après:
- l'entête est bien édité
- le "Détails" également
- le programme lit bien les autres enregistrements du même Matricule (par les tests effectués par MsgBox) mais n'édite plus rien
- le programme arrive à la fin.

Je vous remercie de bien vouloir m'aider à trouver une solution à ce problème.

A bientôt.

Arsène



Sub Testdesc04a()
Dim w1 As Worksheet
Dim w2 As Worksheet
'
Dim Ligne As Long
Dim L As Integer
'-------------------------
Dim Ent As Integer '
'-------------------------
Dim Ord_1 As String
Dim Nom_1 As String
Dim Pre_1 As String
Dim Datcot_1 As String
Dim Datper_1 As Variant
Dim Mont_1 As Variant
'
'Dim Ent As String
Ent = 0
N = 11
'----------------------
'
Workbooks.Open Filename:="C:\Divers\Fich_desc\Fic_des_04.xls"
'
Set w1 = Worksheets("List_01")
Set w2 = Worksheets("List_02")
'--------------------------
Ligne = w1.Cells(Rows.Count, 1).End(xlUp).Row

Application.ScreenUpdating = False
'
For L = 1 To Ligne
w1.Select
'
Ord_1 = w1.Cells(L, 1)
Nom_1 = w1.Cells(L, 2)
Pre_1 = w1.Cells(L, 3)
Datcot_1 = w1.Cells(L, 4)
Datper_1 = w1.Cells(L, 5)
Mont_1 = w1.Cells(L, 6)
'
If Ord_1 = 2 Then
Set w2 = Worksheets("List_02")
'
If Ent = 0 Then
Ent = 1
GoTo 101
'
GoTo 102
101:
N = 11
'
N = N + 1
w2.Range("D" & N).Value = w1.Cells(L, 1)
N = N + 1
w2.Range("D" & N).Value = w1.Cells(L, 2)
' N = N + 1
w2.Range("E" & N).Value = w1.Cells(L, 3)
'
Sheets("List_02").Select
w2.Cells.Select
Application.CutCopyMode = False
w2.Cells.Copy
Worksheets(Worksheets.Count).Select
Cells.Select
ActiveSheet.Paste

N = 18
Ent = 1
' On Error Resume Next
102:
'
N = N + 1
w2.Range("C" & N).Value = w1.Cells(L, 4)
w2.Range("D" & N).Value = w1.Cells(L, 5)
w2.Range("E" & N).Value = w1.Cells(L, 6)
'
Sheets("List_02").Select
w2.Cells.Select
Application.CutCopyMode = False
w2.Cells.Copy
Worksheets(Worksheets.Count).Select
Cells.Select
ActiveSheet.Paste
'
End If
End If
'End If
11:
Next L
Application.ScreenUpdating = True
End Sub