Sub info()
Dim DLSel As Integer, DLSyn As Integer, L As Integer
DLSel = Application.CountA(Sheets("Selection").Range("A:A")) ' derniere ligne de Selection
DLSyn = Application.CountA(Sheets("Synth").Range("C:C")) ' derniere ligne de Synthèse
'parcour la plage de la feuille de destination
For Each c In Sheets("Synth").Range("C2:C" & DLSyn)
'gestion de l'erreur de la valeur non trouvé
On Error Resume Next
L = WorksheetFunction.Match(c, Sheets("Selection").Range("A4:A" & DLSel), 0) + 3 'rajoute 3 car départ de plage en ligne 4
'si pas d'erreur, récupère les valeurs en colonnes E:G et les inscrit en colonne AN:AP
If Err.Number = 0 Then
c.Offset(, 9).Value = Sheets("Selection").Cells(L, 1).Offset(, 2).Value ' copie valeur
End If
Next c
End Sub