Sélectionner une plage de cellule selon le mois

Bonjour Koalacid

Macro à mettre dans le worsheet de la feuille 1 (ALT F11 pour ouvrir l'editeur VBA puis double clic sur Feuil 1 dans arborescence et copier et coller la macro)

Private Sub Worksheet_Change(ByVal Target As Range)
' Verification que c'est la cellule D3 qui a changé
If Not Intersect(Target, Range("D3")) Is Nothing Then
' et si c'est le cas :
' effacement de la plage où doit être être effectuée la copie
ActiveSheet.Range("J33:AG42").ClearContents
' recherche de la colonne du mois choisi en D3 dans la plage ligne 10
' la fonction Match trouve la 1ere occurence du mois et on ajoute 1 pour obtenir la colonne suivante
 col = Application.WorksheetFunction.Match(ActiveSheet.Range("D3"), ActiveSheet.Range("A10:AG10"), 0) + 1
' selection de la plage à copier dans la feuille active et copie
ActiveSheet.Range(Cells(13, 10), Cells(22, col)).Select
Selection.Copy
' selection de la 1ere cellule où coller dans la page dans la page active et collage
ActiveSheet.Range("J33").Select
ActiveSheet.Paste
End If
End Sub

Cdlmnt

Hello Via55, Hello Gyrus,

Merci pour vos réponses et bonne année à vous.

J'avoue être tenté par la première solution vu qu'elle semble plus simple et que je vais devoir l'adapter à mon cas en réalité plus complexe.

La macro prend bien compte le fait qu'il y ait 2 fois le même mois et c'est ce qu'il faut.

Dans la solution de Gyrus, je ne comprend pas où se situe le copier/coller.

Sub Macro1()

Dim Mois_C As String
Dim Mois As String

Mois_C = Range("D3")
Mois = Range("J10:AG10")

'Copier Coller Mois_C

Cells.Find(Mois_C).Activate

Row((Mois_C), 3 To 10)

End Sub

J'aimerais développer ce code pour faire un copier/coller en fonction du mois d'une plage différente à chaque fois vers des fichiers tous similaires.

Par exemple, je choisi novembre alors sur la plage 1 il fait le copier/coller de janvier à novembre vers le fichier 1. Puis il va vers la plage 2 pour refaire la même chose. Et ainsi de suite pour une vingtaine de fichier et de plages.

Ma question est: où est-ce que je dois insérerer le code pour ouvrir le fichier et préciser où se fait le copier/coller dans ton code ci-dessus?

Cordialement,