Bonjour,
sachant qu'il est très important qu'on ne retrouve pas sur une même colonne à la fois des fourn et des G.
J'ai supposé que tes données étaient régulières et qu'en B on ne pouvait avoir que 'fournx', et en C que 'Gx'. Je laisse donc vides les données absentes pour que les valeurs des colonnes soient de même type.
Supposé aussi que tes données commençaient en ligne 2.
Le code :
Sub Compile()
Dim lig As Long, n As Long, memlig As Long
n = 1
Application.ScreenUpdating = False
For lig = 2 To [A65536].End(xlUp).Row
If Cells(lig, 1) = Cells(lig - 1, 1) Then
Cells(lig, 2).Resize(1, 2).Copy Destination:=Cells(memlig, 2).Offset(0, (n * 2))
n = n + 1
Else
n = 1
memlig = lig
End If
Next lig
For lig = [A65536].End(xlUp).Row To 2 Step -1
If Cells(lig, 1) = Cells(lig - 1, 1) Then
Cells(lig, 1).EntireRow.Delete
End If
Next lig
Application.ScreenUpdating = True
End Sub
eric
