Sub Remplissage()
Dim cel As Range, ref As Range
Range("B3:D65536").ClearContents
For Each cel In Range("A3", Range("A65536").End(xlUp))
Set ref = Sheets("INITIAL").Range("F3:IV3").Find(cel, LookIn:=xlValues, LookAt:=xlWhole)
If Not ref Is Nothing Then
cel.Offset(, 1) = Application.CountIf(ref.EntireColumn, "ANIMATEUR")
cel.Offset(, 2) = Application.CountIf(ref.EntireColumn, "STAGIAIRE")
Set ref = ref.EntireColumn.Find("STAGIAIRE", SearchDirection:=xlPrevious)
If Not ref Is Nothing Then cel.Offset(, 3) = ref.EntireRow.Cells(1, 1)
End If
Next
End Sub