Sub test()
tx = "Sheet(""exemple 02-2019"")"
tx = Left(tx, Len(tx) - 10)
MsgBox tx
End Sub
Sub test2()
tx = "Sheet(""exemple 02-2019"")"
MsgBox Split(tx, " ")(0)
End Sub
With Sheets("exemple " & SuffxDt).Range("B5:R5")
.Resize(.End(xlDown).Row - 4).Copy: End With
Sub Exportation()
j = Date - Day(Date)
onglet = "Exemple " & Format(j, "mm-yyyy")
Sheets(onglet).Select
[B5].Resize([B:R].Find("*", , , , 1, 2).Row - 4, 17).Copy Sheets("base").[C2]
'''''''''Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
End Sub