Bonjour BRES, bonjour le forum,
Un exemple qui fonctionne (il doit très surement y avoir mieux mais j'apprends ! lol !)
Commence par aller saisir, sur ta feuille n° 2, en A1 et B1, respectivement 'Référence' et 'Prix'.
Ensuite, voici le code :
Option Explicit
Sub Liaisons()
Dim c As Range
Application.ScreenUpdating = False
Sheets(1).Activate
Range('A2').Activate
For Each c In Sheets(1).Range('A2:A' & Range('A65000').End(xlUp).Rows)
If c.Value = '' Then
c.Offset(1, 0).Select
Else
If Sheets(2).Range('A2').Value = '' Then
With Sheets(2)
.Range('A2').Value = c.Value
.Range('B2').Value = c.Offset(0, 1).Value
End With
c.Offset(1, 0).Select
Else
With Sheets(2)
.Range('A65000').End(xlUp).Offset(1, 0).Value = c.Value
.Range('B65000').End(xlUp).Offset(1, 0).Value = c.Offset(0, 1).Value
End With
c.Offset(1, 0).Select
End If
End If
Next c
Application.ScreenUpdating = True
End Sub
@+