Sub nc()
Dim i As Integer
Nblignes = [A65536].End(xlUp).Row
Windows("synthèse.xls").Activate
Sheets("résultats").Select
For i = 4 To Nblignes
[COLOR=Red]On Error GoTo erreur
If Range("B" & i).Value = False Then GoTo erreur[/COLOR]
Next i
Exit Sub
[COLOR=Red]erreur:[/COLOR]
Workbooks.Open Filename:="L:\service\enquêtesatisfaction\A&i&.xls"
Range("A1").Select
Selection.Copy
Windows("synthèse.xls").Activate
Sheets("liaisons").Select
Range("F" & i).Select
ActiveSheet.Paste
End If
End Sub