Else
Sheets("Chantier " & index).Range("A" & Sheets("Chantier " & index).Range("A65536").End(xlUp).Row).Offset(1, 0) = Sheets("BON DE SORTIE").Range("B8").Value
Sheets("Chantier " & index).Range("B" & Sheets("Chantier " & index).Range("B65536").End(xlUp).Row).Offset(1, 0) = ListBox2.Column(0, ligne)
Sheets("Chantier " & index).Range("C" & Sheets("Chantier " & index).Range("C65536").End(xlUp).Row).Offset(1, 0) = TextBox1.Value
Sheets("Chantier " & index).Range("D" & Sheets("Chantier " & index).Range("D65536").End(xlUp).Row).Offset(1, 0) = Sheets("MATERIAUX").Range("C" & ligne + 4).Value
End If