Option Explicit
Dim chn$
Private Sub Job(s1$, s2$, k As Byte, n As Byte, cel As Range, Optional typ$)
Dim k1 As Byte, k2 As Byte
If k = 2 Then k1 = InStrRev(chn, s1, -1, 1) Else k1 = InStr(chn, s1)
If k1 = 0 Then Exit Sub 's1 non trouvé
If k = 2 Then k2 = InStrRev(chn, s2, -1, 1) Else k2 = InStr(chn, s2)
If k2 = 0 Then Exit Sub 's2 non trouvé
k1 = k1 + n: chn = Mid$(chn, k1, k2 - k1)
If typ = "d" Then cel = DateValue(chn) Else cel = chn
End Sub
Sub Essai()
[O1].Resize(, 3).ClearContents 'effacer anciens résultats
'recherche du nombre de partants ; d'après A1 : 80 ; mis en O1
chn = [A1]: If chn <> "" Then Job "- ", " ", 2, 2, [O1]
'recherche du type de course ; d'après A2 : F ; mis en P1
chn = [A2]: If chn <> "" Then Job "Course ", ",", 2, 7, [P1]
'recherche de la date ; d'après A3 : 03/09/2020 ; mis en Q1
chn = [A3]: If chn <> "" Then Job " ", " -", 1, 1, [Q1], "d"
End Sub