' Chercher la valeur du TextBox1 dans la colonne A et mettre "1" dans la cellule correspondante de la ligne 2
Lig = Application.Match(ComboBox1.Value, ws.[A:A], 0)
Col = Application.Match(TextBox1.Value, ws.[2:2], 0)
If Not IsError(Col) Then
ws.Cells(Lig, Col) = "X" ' Car Site Vis à vis trouvé
Else ' Si non trouvé
Col = Cells(2, Columns.Count).End(xlToLeft).Column ' Dernière colonne
ws.Cells(2, Col + 1) = TextBox1.Value ' Inscription nouveau Site Vis à vis
ws.Cells(Lig, Col + 1) = "X" ' et le X qui va bien
End If