Sub Profile1()
Dim Nom_Fichier As String, Texte As Variant
Dim NumFile As Integer, Compteur As Integer
Dim Send_Email As Worksheet
If ActiveSheet.Range("I4") = "" Then
MsgBox "Fill Profile Name !", vbCritical + vbOKOnly, "Attention..."
Exit Sub
End If
Nom_Fichier = "C:\Users\" & ActiveSheet.Range("I4") & ".txt"
Compteur = 1
If Dir(Nom_Fichier) = "" Then
MsgBox " Wrong name !", vbCritical + vbOKOnly, "Attention..."
Exit Sub
Else
ActiveSheet.Select
NumFile = FreeFile
Open Nom_Fichier For Input As NumFile ' ouverture du fichier
Do While Not EOF(NumFile)
Input #NumFile, Texte
Sheets("Send_Email").Range("Z" & Compteur).Select
Sheets("Send_Email").Range("Z" & Compteur).Value = Texte
Compteur = Compteur + 1
Loop
End If
ActiveSheet.Range("A1").Select
Close NumFile
End Sub