Macro?

Option Explicit

Sub myTest()
Dim sh As Worksheet
Dim i As Long
Dim str As String

    i = 1
    For Each sh In Worksheets
        str = sh.Name
        If str <> "Modalité" And str <> "Evaluation générale" Then
            str = Mid(str, 1, 5)
            Worksheets("Evaluation générale").Range("A" & i).Value = str
            Worksheets("Evaluation générale").Range("B" & i).Value = sh.Range("D3").Value
            i = i + 1
        End If
    Next sh
    
End Sub