Private Sub BtnAttente_Click()
Dim rs As Range, rd As Range
Dim dLigT As Long, Lig
Dim NLigA As Long
Dim ShtA As Worksheet
' Définir la feuille attente
Set ShtA = Sheets("Attente")
' Avec la feuille ticket
With Sheets("Ticket")
' Dernière ligne remplie du ticket
dLigT = .Range("A" & Rows.Count).End(xlUp).Row
For Lig = 4 To dLigT
NLigA = ShtA.Range("A" & Rows.Count).End(xlUp).Row + 1
If .Range("A" & Lig).Value <> "" Then
ShtA.Range("A" & NLigA & ":E" & NLigA).Value = .Range("A" & Lig & ":E" & Lig).Value
End If
Next Lig
End With
' Ligne suivante
NLigA = ShtA.Range("A" & Rows.Count).End(xlUp).Row + 1
ShtA.Range("A" & NLigA).Value = Format(Now(), "dd/mm/yyyy")
ShtA.Range("B" & NLigA).Value = Format(Now(), "hh:mm")
NLigA = ShtA.Range("A" & Rows.Count).End(xlUp).Row + 1
' Inscrire un espace pour la ligne vide
ShtA.Range("A" & NLigA).Value = " "
For Lig = 4 To 23
Select Case Lig Mod 2
Case 0
Range("A" & Lig & ":E" & Lig).Interior.ColorIndex = 48
Case Else
Range("A" & Lig & ":E" & Lig).Interior.ColorIndex = 15
End Select
Next Lig
Range("A4:D23").ClearContents
Range("C1") = Range("C1") + 1
End Sub