Sub tableau()
Dim R, D, D2, T, B, P As Range
dlng = Sheets("Tableaux").Range("B65536").End(xlUp).Row
'Application.ScreenUpdating = False
For i = 2 To dlng
'Do ' While to
'Références
Set R = Sheets("Tableaux").Cells.Find(What:="Référence :", LookIn:=xlValues, LookAt:=xlPart)
If Not R Is Nothing Then Sheets("cat").Range("C" & i) = R.Offset(, 1).Value
'Désignation
Set D = Sheets("Tableaux").Cells.Find(What:="DESIGNATION", LookIn:=xlValues, LookAt:=xlPart)
If Not D Is Nothing Then Sheets("cat").Range("D" & i) = D.Offset(, 1).Value
'Désignation
Set D2 = Sheets("Tableaux").Cells.Find(What:="DESIGNATION", LookIn:=xlValues, LookAt:=xlPart)
If Not D2 Is Nothing Then Sheets("cat").Range("E" & i) = D2.Offset(, 1).Value
'Unité
Set T = Sheets("Tableaux").Cells.Find(What:="UNITE", LookIn:=xlValues, LookAt:=xlPart)
If Not T Is Nothing Then Sheets("cat").Range("G" & i) = T.Offset(, 1).Value
'Bareme de prix
Set B = Sheets("Tableaux").Cells.Find(What:="Barème de prix :", LookIn:=xlValues, LookAt:=xlPart)
If Not B Is Nothing Then Sheets("cat").Range("F" & i) = B.Offset(, 1).Value
'Prix
Set P = Sheets("Tableaux").Cells.Find(What:="LE PRIX", LookIn:=xlValues, LookAt:=xlPart)
If Not P Is Nothing Then Sheets("cat").Range("H" & i) = P.Offset(, 1).Value
Next
i = i + 1
'Loop
End Sub