Sub sauv()
Dim FSource, FDest As Worksheet
Set FSource = Worksheets("ENCOURS RCJ-KOM EX 15-16")
Set FDest = Worksheets("2")
'on reconstruit le jour à chercher. (pourquoi ne pas mettre directement dans une seule cellule??
JourSauv = DateSerial(Year(FSource.Range("M1")), Month(FSource.Range("M1")), FSource.Range("L1"))
'sinon, si la date complète est en M1
'JourSauv=FSource.range("M1")
'on cherche la ligne correspondante dans la feuille destination
With FDest.Range("C4:C240")
Set ici = .Find(CDate(JourSauv), LookIn:=xlValues)
l = ici.Row
End With
'on recopie les datas de feuille source vers feuille destination
FDest.Cells(l, 4) = FSource.Range("I27")
FDest.Cells(l, 5) = FSource.Range("I32")
FDest.Cells(l, 7) = FSource.Range("I36")
FDest.Cells(l, 9) = FSource.Range("P32")
FDest.Cells(l, 13) = FSource.Range("P34")
End Sub