Private Sub Worksheet_Change(ByVal Target As Range)
Dim CdF As Byte, Lg As Long, Loc As Byte, nbJ As Byte
With Feuil1
'recherche la dernière ligne remplie de la feuille SD
Lg = .Range("K" & Rows.Count).End(xlUp).Row
'calcul du nombre de jours du mois courant
nbJ = CDate("1/" & Month(Now) + 1 & "/" & Year(Now)) - CDate("1/" & Month(Now) & "/" & Year(Now))
'copie de la ligne CA sur la feuille Marge
Feuil2.Range("B2:H2").Value = .Range("N" & Lg & ":T" & Lg).Value
'copie des autres colonnes sur la feuille Marge
'si la colonne correspond au Loyer, alors le montant est divisé par le nombre de jours écoulés du mois
For CdF = 2 To 10
For Loc = 2 To 8
Feuil2.Cells(CdF + 1, Loc) = .Cells(Loc, CdF) / nbJ * Day(Now)
Next
Next
End With
End Sub