Private Sub btnDate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDate.Click '*** Charge le texte du contrôle voulu. Dim text As String = rtbCode.Text '*** Exemple de Regex de date : la date doit : ' Commencer par un chiffre (jour) de 01 à 31 suivi soit de "-" ou "/" ou "." ' Suivi d'autre chiffre (mois compris entre 01 et 12 toujours suivi suivi soit de "-" ou "/" ou "." ' Puis l'année, ici limitée de 1900 à 2099 Dim pat As String = "(0[1-9]|[12][0-9]|3[01])[- /.](0[1-9]|1[012])[- /.](19|20)\d\d" '*** Compile the regular expression. Dim r As New Regex(pat) '*** Recherche la première et uniquement la première date du texte. Dim m As Match = r.Match(text) '*** Teste If m.Success Then MessageBox.Show(m.ToString) End If End Sub