Sub importation_formulaire()
Dim Formulairempli As String, Fichier As String
Dim Msg As String, Style As VbMsgBoxStyle, Title As String, Response As VbMsgBoxResult
Dim cel As Range 'décalre la variable cel
Dim pl As Range 'déclare la variable pl (PLage)
Dim dest As Range 'déclare la variable dest (cellule de DESTination)
Dim i As Integer 'décalre la variable i (Incrément)
Set wbdest = ActiveWorkbook
ChDrive CHEMIN
ChDir ("H:\blablablabla")
Fichier = Application.GetOpenFilename(", *xlWindows", 0, "Sélectionner le ficher de rendements souhaité")
If Fichier = "Faux" Then
Msg = "Aucun fichier sélectionné. SVP, veuillez recommencer !"
Style = vbOKOnly
Title = "Abandon de la procédure !"
Response = MsgBox(Msg, Style, Title)
Exit Sub
Else
Workbooks.OpenText Filename:=Fichier
Formulairempli = ActiveWorkbook.Name 'On donne à une variable le nom de ce fichier qu'on vient d'ouvrir.
End If
With Sheets("userform") 'prend en compte l'onglet "userform"
Set pl = Application.Union(.Range("C10:C11"), .Range("plage_2"), .Range("Plage_3")) 'définit la plage pl (à adapter à ton cas)
End With 'fin de la prise en compte de l'onglet "userform"
wbdest.Activate 'reactive recap_data_request
Sheets("Janvier").Select
Set dest = Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0) 'définit la cellule de destination dest
i = 0 'définit la variable i
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
dest.Offset(0, i).Value = cel.Value 'récupère dans dest la valeur de la cellule cel
i = i + 1 'incrémente i
Next cel 'prochaine cellule de la boucle
End Sub