Sub VALIDER()

If MsgBox("Avez-vous bien vérifier vos données et le jour de délivrance ?", vbYesNo + vbExclamation, "Confirmation") = vbNo Then Exit Sub

Sheets("JOURNALIER").Activate
Set Range1 = Range("B7:B31")

    If Range("A4").Value Like "1" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("B11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
 
    If Range("A4").Value Like "2" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("C11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "3" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("D11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "4" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("E11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "5" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("F11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "6" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("G11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "7" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("H11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "8" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("I11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "9" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("J11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "10" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("K11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "11" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("L11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "12" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("M11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "13" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("N11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "14" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("O11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "15" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("P11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    
    ElseIf Range("A4").Value Like "16" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("Q11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    
    ElseIf Range("A4").Value Like "17" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("R11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "18" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("S11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "19" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("T11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "20" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("U11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "21" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("V11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "22" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("W11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "23" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("X11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "24" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("Y11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "25" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("Z11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "26" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("AA11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "27" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("AB11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "28" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("AC11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "29" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("AD11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "30" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("AE11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    ElseIf Range("A4").Value Like "31" Then
    Range1.Copy
    Sheets("MENSUEL").Activate
    Range("AF11").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues


End If


Sheets("JOURNALIER").Range("B7:B31").ClearContents
Sheets("JOURNALIER").Activate

End Sub