Sub Nettoyage()
Range("C2:C41").FormulaR1C1 = "=TRIM(RC[-2])"
Range("C2:C41").Copy
Range("A2").PasteSpecial Paste:=xlPasteValues
Range("F2:F905").FormulaR1C1 = "=TRIM(RC[-1])"
Range("F2:F905").Copy
Range("E2").PasteSpecial Paste:=xlPasteValues
Range("C:C,F:F").ClearContents
End Sub