Sub Importer()
Dim mois$, chemin$, fichier$, ncol%, tablo, i&, n&, j%
mois = LCase([C3]) 'cellule à adapter
chemin = ThisWorkbook.Path & "\" 'à adapter
fichier = "Fichier CSV.csv" 'à adapter
If Dir(chemin & fichier) = "" Then MsgBox "Fichier '" & chemin & fichier & "' introuvable...": Exit Sub
Application.ScreenUpdating = False
Workbooks.OpenText chemin & fichier, Local:=True
With ActiveWorkbook.Sheets(1).UsedRange
ncol = .Columns.Count
If ncol = 1 Then ncol = 2
tablo = .Resize(, ncol) 'matrice, plus rapide, au moins 2 éléments
.Parent.Parent.Close 'fermeture du fichier CSV
End With
'---tableau des résultats---
n = 1
For i = 2 To UBound(tablo)
If Format(tablo(i, 3), "mmmm") = mois Then 'date en 3ème colonne
n = n + 1
For j = 1 To ncol: tablo(n, j) = tablo(i, j): Next j 'copie
End If
Next i
'---restitution---
With [G3] '1ère cellule, à adapter
.Resize(Rows.Count - .Row + 1, Columns.Count - .Column + 1).ClearContents 'RAZ
.Resize(n, ncol) = tablo
End With
End Sub