Bonjour,
Essaie comme ça :
Private Sub CommandButton2_Click()
Dim wkb As Workbook, sh As Worksheet, Arr, ArrC
nf = Application.GetOpenFilename("Fichiers Csv,*.csv")
If Not nf = False Then
Set sh = ThisWorkbook.Sheets("base_inscriptions_helloasso")
ArrC =...