Sub Main()
Dim Num_Ligne as long
Dim Col_Ecriture As Long
Dim Lig_Ecriture As Long

Lig_Ecriture = 1
Dim_Ligne = 1
While Cells(Num_Ligne, 1) <> « »
Col_Ecriture = 5
Do
If Col_Ecriture=5 Then
Cells(Lig_Ecriture, 4)= Cells(Num_Ligne, 1)
End If
Cells(Lig_Ecriture, Col_Ecriture) = Cells(Num_Ligne, 2)
Col_Ecriture=Col_Ecriture+1
Num_Ligne = Num_Ligne+1
Loop While Cells(Num_Ligne -1, 1) = Cells(Num_Ligne, 1)
Lig_Ecriture = Lig_Ecriture+1
Wend
End Sub

''Voilà je ne comprends pas ce code, et particulièrement les lignes en gras'

Merci beaucoup

Cells(Lig_Ecriture, 4)= Cells(Num_Ligne, 1)

ça attribue a Cells(Lig_Ecriture, 4) la valeur qui se trouve dans Cells(Num_Ligne, 1)

pareil pour l'autre ligne

Merci khey