Sub Indemnite()
Dim i As Long
Dim DerniereLigne As Long
Dim DerniereLigne2 As Long
DerniereLigne = Sheets("bdd").Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To DerniereLigne
If Sheets("bdd").Cells(i, 6) > 0 Then
DerniereLigne2 = Sheets("calcul").Range("F" & Rows.Count).End(xlUp).Row + 1
Sheets("bdd").Cells(i, 1).Copy Sheets("calcul").Cells(DerniereLigne2, 6)
End If
Next i
End Sub
Sub Effacer()
'efface à partir de la ligne 2, jusqu'à la ligne 1000
'on peut trouver la dernière ligne comme dans la macro Indemnite
Sheets("calcul").Range("A2:Z1000").Clear
End Sub