Private Sub BT_SUPPR_FIC_Click()
Dim fso As Object, Src$, FicSup$, Fich$
Dim rep, NomFicTemp, NoMFeuiL, Reponse, nomficsupPAT2, nomficsupPAT, NumpaT, Nomfich, Repfic As String
Dim derlig, i As Integer
NoMFeuiL = ActiveWorkbook.ActiveSheet.name
NomFicTemp = ActiveWorkbook.name
nomficsupPAT = LS_NUM_PAT.value
'suite