Sub Autres_Materiaux()
Dim nbpal%, nbcdr%, lig As Integer
Dim PoidsBrut As Range, NbrCadres As Range, NbrPal As Range
Application.ScreenUpdating = False
Sheets("Intro Autres-Materiaux").Activate
On Error Resume Next
[E17] = Date
If [E8] <> "" Or [E14] <> "" Then
With Sheets("Liste Chargement")
lig = .[B65536].End(xlUp).Row + 1 'Calcul de ligne
If lig = 2 Then
num = 1480
Else
num = .Cells(lig - 1, 2) + 1
End If
.Cells(lig, 2) = num 'Numéro de palette
.Cells(lig, 3) = [E5] 'Nom Matériaux
.Cells(lig, 4) = [E11] 'Nombre de cadres
.Cells(lig, 5) = [E14] 'Poids brut
.Cells(lig, 6) = .Cells(lig, 5) - ((.Cells(lig, 4) * 23) + 23)
End With
With Feui129
For i = 1 To 60
If .[C2] = 60 Then
Call Chargement
Exit For
End If
Next i
End With
End If
'With Sheets("Impression_Autres_Materiaux")
'.PrintOut Preview:=True 'aperçu avant impression
'End With
Range("E8, E14").ClearContents
'Call retour
End Sub