Bonjour
1er) Effacer la colonne H à partir de H3
Modifier ton code
j = 1
Do Until IsEmpty(rg.Offset(0, j + 1))
'Ajouter un sous-élément en spécifiant la valeur seulement
.ListItems(i).ListSubItems.Add , , rg.Offset(i, j)
j = j + 1
Loop
.ListItems(i).ListSubItems.Add , , "C:\Users\" & Application.UserName & "\DeskTop\Nouveau dossier\" & rg.Offset(i, 2) & rg.Offset(i, 3) & ".jpg"
i = i + 1
Loop
C'est la solution la plus simple à faire