Salut,
Pou répondre à ta question du 18 Octobre
Il faut dans le code précèdent :
Supprimer cette ligne
Cells(p, 1).Value = "Dossier N°: " & NumDossier
Modifier cette ligne
Cells(p, 2).Value = "Nom et Prénom : " & ID
par
Cells(p, 1).Value = "Nom et Prénom : " & ID
Modifier ce bloc :
If LastLigne <> 1 Then
For i = 1 To UBound(MonTab, 1)
For j = 1 To UBound(MonTab, 2)
Sheets(1).Cells(p + i, j).Value = MonTab(i, j)
Next j
Next i
p = p + i
End If
par ce code
If LastLigne <> 1 Then
For i = 1 To UBound(MonTab, 1)
If i = 1 Then
Sheets(1).Cells(p + i, 1).Value = "N° Dossier"
Else
Sheets(1).Cells(p + i, 1).Value = NumDossier
End If
For j = 1 To UBound(MonTab, 2)
Sheets(1).Cells(p + i, j + 1).Value = MonTab(i, j)
Next j
Next i
p = p + i
End If
En espérant que cela te convienne.