Afficher des résultats dans une colonne spécifique en fonction d'une valeur

Private Sub Worksheet_Change(ByVal Target As Range)
Dim m As Byte 'déclare la variable m (mois)'définit la variable m (Mois)

If Target.Address <> "$B$1" Then Exit Sub 'si le changement a lieu ailleurs qu'en B1, sort de la procédure
m = Month(Range("B1").Value) 'définit le mois m
If Target.Value = "" Then 'condition : si B1 est effacée
    With Range("D4:O11") 'prend en compte la plage D4:O11
        .ClearContents 'efface la plage
        .Interior.ColorIndex = xlNone 'supprime les couleurs
    End With 'fin de la prise en comte de la plage
Else 'sinon
    With Range("D4:O11") 'prend en compte la plage D4:O11
        .ClearContents 'efface la plage
        .Interior.ColorIndex = xlNone 'supprime les couleurs
    End With 'fin de la prise en comte de la plage
    Range("B4:B11").Copy Range("B4").Offset(0, 1 + m) 'copie la plage B4:B11 dans la cellule B11 décalée de m+1 colonnes
End If 'fin de la condition
End Sub