If TextBox1 = "" Or TextBox2 = "" Or ComboBox1 = "" Then Exit Sub
ThisWorkbook.Names.Add "s", Chr(1)
ThisWorkbook.Names.Add "x", Application.Trim(TextBox2) & [s] & _
Application.Trim(TextBox1) & [s] & Application.Trim(ComboBox1)
With Intersect(Sheets("base2").[A:C], Sheets("base2").UsedRange.EntireRow)
.Cells(1, 1).Resize(.Rows.Count + 1).Name = "colA" 'au moins 2 lignes
.Cells(1, 2).Resize(.Rows.Count + 1).Name = "colB"
.Cells(1, 3).Resize(.Rows.Count + 1).Name = "colC"
End With
If IsNumeric([MATCH(x,TRIM(colA)&s&TRIM(colB)&s&TRIM(colC),0)]) Then 'calcul matriciel
MsgBox "Cette formation existe déjà !", 48, "Service formation"
Exit Sub
End If
'suite du code