Sub Validation_Livraisons()
'
' Macro1 Macro
' 24/03/2020
derlg = Range("B5000").End(xlUp).Row
With Sheets("Livraisons")
.Range("A2:L100").ClearContents
End With
For Each cel In Range("B2:B" & derlg)
If cel.Value = 1 Then
With Sheets("Livraisons")
drlg = .Cells(.UsedRange.Columns(1).Rows.Count, 1).End(xlUp).Row + 1
.Cells(drlg, 1) = cel.Offset(0, 1).Value 'Nom
.Cells(drlg, 2) = cel.Offset(0, 2).Value 'Pr?nom
.Cells(drlg, 3) = cel.Offset(0, 3).Value 'Portable
.Cells(drlg, 4) = cel.Offset(0, 4).Value 'Fixe
.Cells(drlg, 5) = cel.Offset(0, 5).Value 'E-Mail
.Cells(drlg, 6) = cel.Offset(0, 6).Value 'N? Rue
.Cells(drlg, 7) = cel.Offset(0, 7).Value 'Rue
.Cells(drlg, 8) = cel.Offset(0, 8).Value 'Batiment
.Cells(drlg, 9) = cel.Offset(0, 9).Value 'Etage
.Cells(drlg, 10) = cel.Offset(0, 10).Value 'Code Postal
.Cells(drlg, 11) = cel.Offset(0, 11).Value 'Ville
.Cells(drlg, 12) = cel.Offset(0, 12).Value 'Remarque
End With
End If
Next
'Application.ScreenUpdating = True
'Formatage_Bordures
'Application.ScreenUpdating = False
End Sub