Sub ChoixFichier()
Dim fichier As Variant
fichier = Application.GetOpenFilename("Tous les fichiers (*.csv),*.csv")
If fichier = False Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next 'sécurité
With Workbooks.Open(fichier).Sheets(1)
.Columns(1).TextToColumns .[A1], xlDelimited, Semicolon:=True 'commande Convertir
If Year(.[A2]) <> Year(ThisWorkbook.Sheets("date").[B1]) Then 'test à adapter éventuellement
MsgBox "Ce fichier ne correspond pas à l'année en date!B1..."
Else
Feuil1.Cells.Clear
.UsedRange.Copy Feuil1.[A5]
End If
.Parent.Close False
End With
End Sub