Bonsoir,
A tout hasard, est-ce que toutes les cellules de la colonne BG (de BG6 à BG1200) contiennent une date?
Si non, il faut rajouter une condition pour la valeur "recl" :
For i = 6 To 10
If Sheets("Audit").Range("BG" & i).Value < Date And Not IsEmpty(Sheets("Audit").Range("BG" & i)) Then
recl = recl & vbNewLine & Range("A" & i) & Space(1) & Range("B" & i) & Space(3) & Range("C" & i) & Space(3) & Range("D" & i) & Space(3) & Range("E" & i)
End If
Peut-être?