Sub NOUVEAU_MOIS()


Sheets("MENSUEL").Activate
Set Range1 = Range("AG11:AG35")

    If Range("B8").Value Like "*JANVIER*" Then
    Range1.Copy
    Sheets("ANNUEL").Activate
    Range("B2").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues

    ElseIf Range("B8").Value Like "*FEVRIER*" Then
    Range1.Copy
    Sheets("ANNUEL").Activate
    Range("C2").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
        ElseIf Range("B8").Value Like "*MARS*" Then
    Range1.Copy
    Sheets("ANNUEL").Activate
    Range("D2").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
        ElseIf Range("B8").Value Like "*AVRIL*" Then
    Range1.Copy
    Sheets("ANNUEL").Activate
    Range("E2").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
        ElseIf Range("B8").Value Like "*MAI*" Then
    Range1.Copy
    Sheets("ANNUEL").Activate
    Range("F2").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
        ElseIf Range("B8").Value Like "*JUIN*" Then
    Range1.Copy
    Sheets("ANNUEL").Activate
    Range("G2").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
        ElseIf Range("B8").Value Like "*JUILLET*" Then
    Range1.Copy
    Sheets("ANNUEL").Activate
    Range("H2").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
        ElseIf Range("B8").Value Like "*AOUT*" Then
    Range1.Copy
    Sheets("ANNUEL").Activate
    Range("I2").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
        ElseIf Range("B8").Value Like "*SEPTEMBRE*" Then
    Range1.Copy
    Sheets("ANNUEL").Activate
    Range("J2").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
        ElseIf Range("B8").Value Like "*OCTOBRE*" Then
    Range1.Copy
    Sheets("ANNUEL").Activate
    Range("K2").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
        ElseIf Range("B8").Value Like "*NOVEMBRE*" Then
    Range1.Copy
    Sheets("ANNUEL").Activate
    Range("L2").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
        ElseIf Range("B8").Value Like "*DECEMBRE*" Then
    Range1.Copy
    Sheets("ANNUEL").Activate
    Range("M2").Activate
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    
    End If

Sheets("MENSUEL").Range("B11:AF35").ClearContents

Sheets("MENSUEL").Activate

    
End Sub