Sub BUDGET()
Dim i&, s$, x
With Sheets("Feuil1")
For i = 2 To 10000
If .Cells(i, 4).Value <> "Tâcherons" And .Cells(i, 4).Value <> "" And .Cells(i, 11).Value <> "" Then
If Sheets("Feuil").Range("A30").Value = "ABC" Then
s = InputBox("Veuillez rentrer le montant du budget", "Budget")
Sheets("Feuil2").Range("A30:B30").Value = Array(.Cells(i, 11).Value, s)
ElseIf Sheets("BILAN").Range("A30").Value <> .Cells(i, 11).Value And Sheets("Feuil2").Range("A31").Value = "ABC" Then
s = InputBox("Veuillez rentrer le montant du budget", "Budget")
Sheets("Feuil2").Range("A31:B31").Value = Array(.Cells(i, 11).Value, s)
End If
End If
Next i
End With
End Sub