Bonjour, voici une proposition de code VBA :
Sub Distribution()
Dim Ligne As Long, Ligne_destination As Long
Ligne = 1
Ligne_destination = 1
Application.ScreenUpdating = False
With Sheets("Feuil2")
Do
If .Cells(Ligne, 1).Value = "" Then Exit Do
Sheets("feuil3").Cells(Ligne_destination, 1).Value = .Cells(Ligne, 1).Value
Sheets("feuil3").Cells(Ligne_destination, 2).Value = .Cells(Ligne, 2).Value
Sheets("feuil3").Cells(Ligne_destination, 4).Value = .Cells(Ligne, 4).Value
Sheets("feuil3").Cells(Ligne_destination, 5).Value = .Cells(Ligne, 5).Value
Sheets("feuil3").Cells(Ligne_destination, 6).Value = .Cells(Ligne, 6).Value
Sheets("feuil3").Cells(Ligne_destination, 7).Value = .Cells(Ligne, 7).Value
Sheets("feuil3").Cells(Ligne_destination, 8).Value = .Cells(Ligne, 8).Value
Sheets("feuil3").Cells(Ligne_destination + 1, 8).Value = .Cells(Ligne, 9).Value
Ligne_destination = Ligne_destination + 2
Ligne = Ligne + 1
Loop
End With
End Sub
Attention ! Il faut créer une "feuil3" pour son fonctionnement, mais après vous pouvez l'adapter, l'améliorer (il y a de quoi faire).
vbMBHB