Sub test()
Dim c As Range
Dim i As Integer
' efface les cellules de destination
Range("h9:i15").ClearContents
' alimente la variable i
i = 9
'pour chaque cellule dans c8:jusqu'a la derniere non vide
For Each c In Range("c8:c" & Range("c5000").End(xlUp).Row)
' si la valeur de la cellule = la valeur de h8
If c.Value = Range("h8").Value Then
' place en h9 la valeur de h8
Range("h" & i).Value = Range("h8").Value
'place en i9 la valeur trouvé en colonne D
Range("i" & i).Value = c.Offset(0, 1).Value
'incrémente i
i = i + 1
'fin de la condition
End If
'prochaine cellule
Next c
End Sub
J'ai pensé que tu voulais renvoyé le chiffre correspondant à ta référence.
Effectivement, il est possible de le faire par une fonction, mais dans dans l'appli il y aura des milliers de lignes et beaucoup de colonnes... plus facile à gérer par code