Sub Enreg()
If NbEnregDV = 0 Then
NomFic = "\\xxx.sharepoint.com@ssl\sites\aaa\bbb\ccc\DV.csv"
Open NomFic For Output As #2
LigneEntete = "données récoltées via la première macro"
Print #2, LigneEntete
End If
NbEnregDV = NbEnregDV + 1
'colonnes CODE SOCIETE ,N°MATRICULE,CODE Rubrique,CODE DUPLICATION
Machaine = "ABC;" & Matricule & ";" & Rubrique & ";;"
(etc avec la suite d'autres infos à reporter dans le fichier)
Print #2, Machaine
End Sub