Bonjour,
à tester,
For Each f In Worksheets
With Sheets("resultat")
If Not IsError(Application.Index(Sheets(f.Name).Rows(5), Application.Match(.Range("D6"), Sheets(f.Name).Rows(4), 0))) Then
dt = Application.Index(Sheets(f.Name).Rows(5), Application.Match(.Range("D6"), Sheets(f.Name).Rows(4), 0))
.Range("F6") = dt
End If
End With
Next
ps/ pour trouver toutes les date
Sub Trouve_date()
Dim f As Worksheet, i As Long, dt As Double
With Sheets("resultat")
For i = 2 To .Cells(Rows.Count, "D").End(xlUp).Row
For Each f In Worksheets
If f.Name <> "resultat" Then
If Not IsError(Application.Match(.Range("D" & i), Sheets(f.Name).Rows(4), 0)) Then
dt = Application.Index(Sheets(f.Name).Rows(5), Application.Match(.Range("D" & i), Sheets(f.Name).Rows(4), 0))
.Range("F" & i) = dt
End If
End If
Next f
Next i
End With
End Sub