Dim cellule As Range
Dim LigneTrouve As Integer, iCol As Integer
Application.ScreenUpdating = False
'pour chaque cellule de la feuille liste plage a12:a23
With Sheets('Participants')
.Select
For Each cellule In .Range('G2:G' & .Range('G65536').End(xlUp).Row)
Sheets('Noms A-1').Select
LigneTrouve = Cells.Find(What:=cellule, LookIn:=xlValues).Row
For iCol = 8 To 12
'la cellule=cellule (ligne sélectionner, colonne 1)
.Cells(cellule.Row, iCol) = '' & Cells(LigneTrouve, iCol - 3)
Next iCol
'prochaine cellule
Next cellule
.Select
End With