Bonjour,
Essaie de te servir de la macro ci-dessous a insérer dans un module !
Sub TrouverEtRegrouperDesCellules()
'Avec cette procédure, on utilise les cellules remplies de la feuille 2 (usedrange)
'et on les compare à la valeur d'un inputbox (a)
'si le résultat est identique, la feuille 1 reprend les cellules avec
'l'adresse en feuille 2
'la valeur recherchée
'le nombre trouvé
Application.ScreenUpdating = False
i = 1
Dim Cellule As Range
a = InputBox('Que cherchez-vous ?', 'Trouver et regrouper des cellules')
For Each Cellule In Sheets(2).UsedRange
If Cellule.Text = a Then
Sheets(1).Cells(i, 1) = Cellule.Address
Sheets(1).Cells(i, 2) = a
Sheets(1).Cells(i, 3) = i
i = i + 1
End If
Next Cellule
Application.ScreenUpdating = True
Sheets(1).Select
End Sub