Private Sub Worksheet_Change(ByVal Target As Range)
Dim Feuille As Object
Dim MaFeuille As String
Dim Cherche
MaFeuille = ActiveSheet.Name
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
For Each Feuille In Worksheets
If Feuille.Name <> MaFeuille Then
With Feuille.Range("C:C")
Set Cherche = .Find(Sheets(MaFeuille).Range(Target.Address), LookIn:=xlValues)
If Cherche Is Nothing Then
GoTo ExistePas
Else
Target.Offset(0, 4) = Cherche.Offset(0, 17)
Exit Sub
End If
End With
End If
ExistePas: Next Feuille
Target.Offset(0, 4) = ""
MsgBox ("Echec de la recherche")
End If
End Sub