Sub Ajout_Materiel()
Application.ScreenUpdating = False
Set f = Sheets("SOMMAIRE")
With Sheets("CRUAS")
DL = .Range("D65500").End(xlUp).Row + 1
.Cells(DL, "D") = f.Range("I4")
.Cells(DL, "E") = f.Range("I5")
.Cells(DL, "F") = f.Range("I6")
.Cells(DL, "M") = f.Range("I7")
.Cells(DL, "S") = f.Range("I8") ' si date emprunt = D.Sortie ?
.Cells(DL, "C") = f.Range("I9")
End With
End Sub