Bonjour,
Sur base de ton fichier, essaie comme ceci :
Sub chercheref()
'Macro Dan
Dim sh As Byte
Dim lg As Integer
With Sheets("RECAP")
.Range("A6:A" & .Range("A" & .Rows.Count).End(xlUp).Row).ClearContents
ref = .Range("A3")
End With
For sh = 1 To ThisWorkbook.Sheets.Count
If Sheets(sh).Name <> "RECAP" Then
On Error Resume Next
lig = Sheets(sh).Cells.Find(ref, LookIn:=xlValues, LookAt:=xlWhole)
If lig > 0 Then
With Sheets("RECAP")
lg = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Range("A" & lg) = Sheets(sh).Name
End With
End If
End If
Next
End Sub
Oublie pas d'enregistrer le fichier avec l'extension XLSM
Si ok, clique sur le V vert à coté du bouton EDITER pour cloturer le fil lors de ta réponse
Cordialement