Sub Macro1()
Dim S As Worksheet 'déclare la variabler S (Onglet Sommaire)
Set S = Worksheets("Sommaire") 'définit l'onglet S
For I = 3 To S.Range("A" & Application.Rows.Count).End(xlUp).Row 'boucle sur toutes les lignes éditées I de la colonne A de l'onglet S
If S.Cells(I, 2) = "" Then 'condition : si la cellule ligne I colonne 2 (=B) n'est pas vide
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
'récupère dans la cellule ligne I colonne 2 de l'onglet F, la valeur de la cellule A1 de l'onglet désigné par la cellule ligne I colonne 1 de l'ongelt F
'génere une erreur si l'onglet n'existe pas
S.Cells(I, 2).Value = Sheets(S.Cells(I, 1)).Range("A1").Value
If Err <> 0 Then Err.Clear 'si une erreur a été générée, supprime l'erreur
On Error GoTo 0 'annule la gesion des erreurs
End If 'fin de la condition
Next I 'prochaine ligne de la boucle
End Sub