Private Sub CommandButton1_Click()
Dim Ligne As Long, Col As Long
If ComboBox1 = "" Or ComboBox2 = "" Then
MsgBox "renseigner batiment et mois"
Exit Sub
End If
Ligne = Application.Match(ComboBox2, Sheets("Feuil1").Range("A1:A65536"), 0)
Col = Application.Match(ComboBox1, Sheets("Feuil1").Range("A1:IV1"), 0)
Sheets("Feuil1").Cells(Ligne, Col).Value = TextBox1
End Sub