Sub ValCaisseII()
Dim vQ, r1 As Range, r2 As Range
Set r1 = Sheets("RECAP CAISSIERES").Range("A12:F47"): Set r2 = Sheets("TABLEAU CAISSIERE").Cells(Rows.Count, 1).End(3)(2)
vQ = MsgBox("Confirmez-vous l'ajout des données relatives aux caissières ?", 4, "Confirmation")
Select Case vQ
Case 6
r2.Resize(r1.Rows.Count, r1.Columns.Count).Value = r1.Value
Case 7
Exit Sub
End Select
End Sub