Contenu = Contenu & "BEGIN:VCARD" & vbCrLf _
& "VERSION:3.0" & vbCrLf _
& "N:" & Prénom & ";" & Nom & vbCrLf _
& "FN:" & Nom & " " & Prénom & vbCrLf _
& "ORG:" & Range("G" & i).Value & vbCrLf _
& "TITLE: " & Range("H" & i).Value & vbCrLf _
& "TEL;TYPE=CELL;VOICE:" & Range("I" & i).Value & vbCrLf _
& "TEL;TYPE=WORK;VOICE:" & Range("J" & i).Value & vbCrLf _
& "TEL;TYPE=HOME;VOICE:" & Range("K" & i).Value & vbCrLf _
& "TEL;TYPE=HOME;VOICE:" & Range("L" & i).Value & vbCrLf _
& "EMAIL;TYPE=INTERNET,WORK,pref:" & Range("M" & i).Value & vbCrLf _
& "EMAIL;TYPE=INTERNET,HOME:" & Range("N" & i).Value & vbCrLf _
& "ADR;TYPE=WORK:;;" & Adr_pro & ";" & Ville_pro & ";;" & CP_pro & vbCrLf _
& "ADR;TYPE=HOME:;;" & Adr_perso & ";" & Ville_perso & ";;" & CP_perso & vbCrLf _
& "X-MS-OL-DEFAULT-POSTAL-ADDRESS:1" & vbCrLf _
& "CATEGORIES: " & Range("B" & i).Value & vbCrLf _
& "BDAY:" & Format(Range("F" & i).Value, "yyyymmdd") & vbCrLf _
& "NOTE:" & Range("X" & i).Value & vbCrLf _
& "URL;TYPE=WORK:" & Range("W" & i).Value & vbCrLf _
& "END:VCARD" & vbCrLf