'-----------
If xFichier <> Principal.Name Then
With ActiveSheet.[A:O]
If Application.CountA(.Cells) Then
xLig = .Find("*", , xlValues, , xlByRows, xlPrevious).Row + 1
Else
xLig = 1
End If
End With
Call LireFichierFermé(Repertoire, xFichier, xLig)
End If