Merci GMD cela fonctionne bien sur le test tip tip mais sur mon originale j'ai un débogage sur la fin du code (voir ligne en gras en bas)
fa.Range("C" & lgn & ":C" & lgn + derLn - 9) = CDate(fp.Cells(5, j))
fp.Range(fp.Cells(9, j), fp.Cells(derLn, j + 5)).Copy
fa.Range("D" & lgn).PasteSpecial xlPasteValues
End If
Next j
fa.Activate
End Sub