Sub DMI_Générer_Entrée()
' Recherche de la première ligne vide sur la feuille "DMI"
' entre la ligne A25 et A38 pour y copier les données provenant de "Bon Réception"
Dim L As Byte
L = 24
Do: L = L + 1: Loop Until Sheets("DMI").Cells(L, 1) = ""
If L < 39 Then
If Sheets("Bon Réception").Range("C70").Value = "" Then
Sheets("DMI").Cells(L, 1) = Sheets("Bon Réception").Range("C71").Value
Sheets("DMI").Cells(L, 4) = Sheets("Bon Réception").Range("F71").Value
Else
Sheets("DMI").Cells(L, 1) = Sheets("Bon Réception").Range("C70").Value
Sheets("DMI").Cells(L, 4) = Sheets("Bon Réception").Range("F70").Value
Sheets("DMI").Cells(L + 1, 1) = Sheets("Bon Réception").Range("C71").Value
Sheets("DMI").Cells(L + 1, 4) = Sheets("Bon Réception").Range("F71").Value
End If
End If
End Sub